Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use strict;
...
  my $ts = localtime;
  print "[$ts, id=$self->{id}] CLOSED\n";
}

Select or download this

Listening on socket 8080
ConnHandler::new() [id:1]
...
[Tue Mar  4 06:49:42 2008, id=2] EXP: 5
[Tue Mar  4 06:49:42 2008, id=2] SENT This is only a test
[Tue Mar  4 06:49:42 2008, id=2] CLOSED