Select Code to Download

#!/usr/local/bin/perl

...
   sleep(0.2);
}
close SOCK;

#!/usr/bin/perl

...
   print $client ( $x ) or last;
   sleep(1);
}

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

use IO::Socket::INET;
my $sock = IO::Socket::INET->new( 
...
   PeerAddr  => 'localhost',
   PeerPort  => 5003,
) or die $!;