# Kitty - your client code. #!/usr/bin/perl -w use warnings; use strict; use IO::Socket::INET; my $client; my $server; my $remote_port = 8100; my $remote_host = "localhost"; my $line; $server = IO::Socket::INET->new( PeerAddr => $remote_host, PeerPort => $remote_port, Proto => "tcp", Type => SOCK_STREAM ) or die "Couldn't connect to $remote_host: $!\n"; print $line = <$server>; close $server; # Server code. #!/usr/bin/perl -w use strict; use IO::Socket::INET; my $server_port = 8100; my $client; my $line; my $server = IO::Socket::INET->new( LocalPort => $server_port, Type => SOCK_STREAM, Reuse => 1, Listen => 10 ) or die "Could not create a tcp server on port $server_port : $!\n"; while( $client = $server->accept() ) { open( FH, "; close FH; print $client "$line\n"; }