#!/usr/bin/perl
use IO::Socket;
my $sock1;

sub OpenSocket{
$sock1 = new IO::Socket::INET(
                  PeerAddr => '192.168.10.7',
                  PeerPort => 8000,
                  Proto    => 'tcp');
$sock1 or die "no socket :$!";
}

################ START SCRIPT #################

OpenSocket();
$str="Something to send";
while (1) {
$sock1->send($str);
}
close($sock1);