use IO::Socket::INET;

my $socklist = new IO::Socket::INET (Listen    =>1,
                                     LocalHOST =>'localhost',
                                     LocalPort => 6500,
                                     Proto     => 'tcp',
                                     Reuse     => 1);
die "I couldn't create socket: $!\n" unless $socklist;


my $sock_acpt = $socklist->accept();
        while($sock_acpt){
                print $_;
}
close($socklist);


my $sockcli = new IO::Socket::INET (
                        PeerAddr => 'Chromium',
                        PeerPort => '6500',
                        Proto => 'tcp',
                        );
die "Could not create socket: $!\n" unless $sockcli;
print $sockcli "hello there!\n";
close($sockcli);