# client
use strict;
use warnings;
use IO::Socket::INET;

my $sock = new IO::Socket::INET (
    PeerHost => '127.0.0.1',
    PeerPort => 5001,
    Proto    => 'tcp',
) or die;

print $sock "$ARGV[ 0 ]\n";
$sock-> close;