Select Code to Download

#!/usr/bin/perl -w
use IO::Socket;
...
print $sock "$message\n";
close($sock);}

#!/usr/bin/perl -w
use IO::Socket;
...

print "$message";