use IO::Socket::INET;
use Carp;

my $socket = IO::Socket::INET->new(
                                     PeerAddr=> $host,
                                     PeerPort=> $port,
                                     Proto=> "tcp",
                                     Blocking => 1 ) ;

for(1..100){
    print $_ . "..";
    sleep(2);

    eval{
      $output = $socket->syswrite($string);
    };

    croak "Could not syswrite: $@\n" if(!$output or $@);


    print "done\n";
}