#!/usr/bin/perl
use IO::Socket;

my $machine_addr = 'localhost';
$sock = new IO::Socket::INET(PeerAddr=>$machine_addr,
      PeerPort=>7777,
      Proto=>'tcp',
      );
die "Could not connect: $!" unless $sock;
foreach my $count(1..100){
  print $sock "$count\n";
  print "$count\n";
}
close ($sock);