Hi I am making a program that will listen for http post. I need to read in the variables passed in by the for. I can read the post but i can't read the form variables. It hangs till I kill the web page that is posting to the program. Here is the program so far.

#!/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;
[download]

any help would be great thanks