use IO::Socket;

my $server = IO::Socket::INET->new(
    PeerAddr => 'localhost',
    PeerPort => 7888,
    Proto    => 'tcp'
) or die "Can't create client socket: $!";

open FILE, "hello.txt";
 print "Enviando informacion";
 for (my $dots=1;$dots<=100;$dots++){
    print "*";
     
 }
 print "\n\n\n";
while (<FILE>) {
   
    print $_;
    print $server $_;
}
close FILE;

##</code><code>##

use IO::Socket;

my $server = IO::Socket::INET->new(
    Listen => 5,
    LocalAddr => 'localhost',
    LocalPort => 7888,
    Proto     => 'tcp'
) or die "Can't create server socket: $!";

my $client = $server->accept;

open FILE, ">out" or die "Can't open: $!";
while (<$client>) {
    print FILE $_;
}
close FILE;