use IO::Socket;
 my $socket = new IO::Socket::INET (
   LocalHost => 'host',
   LocalPort => 'portnumber',
   Proto => 'tcp',
   Listen => 1,
);
die "No socket" unless $socket;
 my $connect= $sock->accept();
while($connect) {
   print $_;
}
close($socket);