Select Code to Download

print "Incoming connection detected!\n";
my $new_sock = $listen_sock->accept
or die "Could not accept socket: $!";

recv $new_sock,$z,10000,0;