#!/usr/bin/perl

use IO::Socket;

$server = '128.113.152.89';
$port	= 2345;

my $server = new IO::Socket::INET (
    Listen => 5,
    LocalAddr => $server,
    LocalPort => 2345,
    Proto     => 'tcp'
) ;

die "can't set up server" unless $server;


$client = $server->accept();

while (<$client>) {
	print $_;
	if($_ =~ /POST/){
		#want to get posted variables here
	}
}

$server->close();
exit;