#!/usr/bin/perl

$TIMEOUT            = 3;
$BUFLEN             = 1024;

vec($rin='', fileno(STDIN), 1) = 1;
select($rout=$rin, undef, undef, $TIMEOUT);

if (vec($rout, fileno(STDIN),1)) 
{
   exit if (sysread(STDIN, $line, $BUFLEN) < 1);
   ($serverPort, $clientPort) = split(',', $line);
   $serverPort = int($serverPort);
   $clientPort = int($clientPort);
   exit if ($serverPort < 1 || $clientPort < 1);

   printf("%s , %s : USERID : %s : %s\r\n", $serverPort, $clientPort, "MSDOS", "billgates");
}