Help for this page
#!/usr/bin/perl -w use strict; ... my $ts = localtime; print "[$ts, id=$self->{id}] CLOSED\n"; }
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