use IO::Socket;
my $sock = new IO::Socket::INET (
                               PeerAddr '192.168.1.1',
                               PeerPort => '7070',
                               Proto => 'tcp',
                               );
die "Could not create socket: $!\n" unless $sock;
$file = "1MB.txt";
open (LOG, $file);
@1MB = <LOG>;
print $sock "@1MB";
close($sock);

##</code><code>##

use IO::Socket;
my $sock = new IO::Socket::INET (
                              LocalHost > '192.168.1.1',
                              LocalPort => '7070',
                              Proto => 'tcp',
                              Listen => 1,
                              Reuse => 1,
                              );
die "Could not create socket: $!\n" unless $sock;
my $new_sock = $sock->accept();
while(defined(<$new_sock>)) {
   print $_;
}
close($sock);