#!/usr/bin/perl 


use IO::Socket;

sub Start
{
        $sock = new IO::Socket::INET (LocalAddr => 'xxxx',
                                      BindPort => 80,
                                      Proto     => 'tcp',
                                      Listen    => 10);
        die "$!" unless $sock;

print "Starting Xtools\n";

 my $new_sock = $sock->accept();

 while(<$new_sock>)
 {
    print $_;
 }

 close($sock);
}

Start();
1;