# SERVER
use warnings;
use strict;
use IO::Socket;

$|++;

my $server = new IO::Socket::INET(Proto => "tcp",
                                  LocalAddr => "localhost",
                                  LocalPort => 25,
                                  Listen => 10) ||
die "Failed to initialize socket\n";
             
while (my $connection = $server->accept()) {
        print "client's saying - ", $_ = <$connection>;
        print $connection "I've got your $_";
        close($connection);
}

__END__

# CLIENT
use warnings;
use strict;
use IO::Socket;

$|++;

my $server = new IO::Socket::INET(Proto => "tcp",
                                  PeerAddr => "localhost",
                                  PeerPort =>25);

print $server $_ = localtime().$/;
print "server's saying $_" while <$server>;

close($server)

__END__