use IO::Socket; my $sock = new IO::Socket::INET ( LocalHost => '10.137.157.52', LocalPort => '8121', Proto => 'tcp', Listen => 1, Reuse => 1, ); die "Could not create socket: $!\n" unless $sock; my $new_sock = $sock->accept(); while(defined(<$new_sock>)) { print $_; } close($sock);