use strict;
use warnings;
use IO::Socket::INET;

my $portp = 5000;
my $ports = 5001;
my $hostp = "localhost";
my $hosts = "localhost";

my $sock = IO::Socket::INET->new(Proto => 'tcp', PeerPort => $portp, PeerAddr => $hostp) || IO::Socket::INET->new(Proto => 'tcp', PeerPort => $ports, PeerAddr => $hosts) or die "Can't create socket: $!\n";

while(1)  {
    print $sock "Hello from client\n";
    sleep 1;
}