Select Code to Download

use IO::Socket;
my $sock = new IO::Socket::INET (
...
@1MB = <LOG>;
print $sock "@1MB";
close($sock);

use IO::Socket;
my $sock = new IO::Socket::INET (
...
   print $_;
}
close($sock);