#!/usr/bin/perl
use IO::Socket;
$PORT = shift || 0;
$pretend_server = IO::Socket::INET->new( Proto     => 'tcp',
                                         LocalPort => $PORT,
                                         Listen    => SOMAXCONN,
                                         Reuse     => 1)
or die "Cannot create local server port";

$port=$pretend_server->sockport;
print stderr "Listening on port $port\n";

$client = $pretend_server->accept();
$client->autoflush(1);
while (<$client>) {print $_}
close $client;