#! /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);