Select Code to Download

#!c:/perl/bin/perl -w
$|++;
...

  close $new_sock;
}

#!c:/perl/bin/perl -w
$|++;
...
print $byte while sysread($sock, $byte, 1);

close $sock;