use IO::Socket;

$| = 1;
$port = 5555;
$socket = new IO::Socket::INET (LocalHost => '127.0.0.1', 
				LocalPort => $port, 
				Proto => 'tcp', 
				Listen => 5, 
				Reuse => 1);

die "" unless $socket;