use IO::Handle;
my $prot = getprotobyname('tcp');
my $host = inet_aton("localhost");
socket(SOCK, AF_INET, SOCK_STREAM, $prot) or die("socket failed to start");
my $dest_addr = sockaddr_in(5003, $host);
connect(SOCK, $dest_addr) or die("Connect failed");