#! /usr/bin/perl -w
#
# loadserv.pl
#

use strict ;
use warnings ;

use IO::Socket ;

my $server_port = 2048 ;

my $server = IO::Socket::INET->new( LocalPort => $server_port,
                                    Type      => SOCK_STREAM,
                                    Reuse     => 1,
                                    Listen    => 10 )
  or die "Couldn't be a TCP server on port $server_port: $@\n" ;

while ( my $client = $server->accept() )
{
    print $client `uptime` ;
}

close( $server ) ;