#!/usr/bin/perl
use IO::Socket;
use IO::Select;
require LWP::UserAgent;

print "Content-type: text/html\n\n";
print "Trying to start server...<br>";

$main = new IO::Socket::INET (LocalHost => 'entropy8zuper.org',
                              LocalPort => 1234,
                              Listen    => 50,
                              Proto     => 'tcp', 
                              Reuse     => 1 ) || die $!;

print "Socket open. ";