#! /usr/bin/perl
#client for a basic sockets program
use warnings;
use Socket;

socket(TO_SERVER, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
$inet_addr = inet_aton('localhost') or die("couldn't do it: $!");
$paddr = sockaddr_in('8080', $inet_addr);
connect(TO_SERVER, $paddr) or die("Couln't connect: $!");
my $var = <STDIN>;
print TO_SERVER $var;
close(TO_SERVER);
[download]

#! /usr/bin/perl
#server for a basic sockets program
use warnings;
use Socket;

socket(SERVER, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
setsockopt(SERVER, SOL_SOCKET, SO_REUSEADDR, 1);

my $my_addr=sockaddr_in('8080', INADDR_ANY);
bind(SERVER, $my_addr) or die "Couldn't bind: $!\n";
listen(SERVER, SOMAXCONN) or die "Couldn't listen on port 8080: $!\n";

while (accept(CLIENT, SERVER)) {
    print "[Receiving incoming socket]\n";
    print <CLIENT>;
}

close(SERVER);
[download]