Simple Perl test TCP server

test-server.pl

#!/usr/bin/perl

use Socket;

# Set up listener

$on_port = $ARGV[0] || 25;
$proto = getprotobyname("tcp");
socket (Server, PF_INET, SOCK_STREAM, $proto) || die ("socket");
setsockopt(Server, SOL_SOCKET,SO_REUSEADDR,1) || die ("setsockopt");
$pbind = sockaddr_in($on_port, $ARGV[1] ? inet_aton($ARGV[1]) : INADDR_ANY) || die ("sockaddr_in");
bind(Server,$pbind) || die ("Can't bind: $!");
listen(Server,SOMAXCONN) || die ("Can't listen: $!");

# await a contact

while ($paddr = accept(Client, Server)) {
	print Client "Hi there\n";
	close Client;
}