use Socket;

my $host = shift || 'localhost';
my $port = shift || 7001;
my $server = "localhost";

socket(SOCKET,PF_INET,SOCK_STREAM,(getprotobyname('tcp'))[2]) or die "Can't create a socket $!\n";

connect( SOCKET, pack_sockaddr_in($port, inet_aton($server))) or die "Can't connect to port $port! \n";

my $line;
my $val;
my $p;
my $iaddr;

$line = recv(SOCKET,$val,5,0);
($p, $iaddr) = sockaddr_in($line);

if(defined $line){
 print "$val from $iaddr\n";
}
close SOCKET or die "close: $!";