use IO::Socket::Unix;

my $conn = IO::Socket::INET.new( :host<localhost>,
                                 :port(3333) );

$conn.print: 'Absolute file path';

my $sock_msg;

while my $buf = $conn.recv(:bin)
{
    $sock_msg = $buf.decode;
    last;
}

say $sock_msg;