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

my $sock = IO::Socket::INET->new("localhost:9000") or die $!;
print $sock "foo\n\0\0";