#!/usr/bin/perl -Tw

use Socket;
use strict;

listen(STDIN,SOMAXCONN)
    or die "listen error: $!\n";

for(;my $paddr=accept(CLIENT,STDIN); close(CLIENT))
{
  print CLIENT "The time is now ",scalar localtime,"\n";
}