$queuelength=1;

use Socket;
socket(HANDLE, PF_INET, SOCK_STREAM, getprotobyname('tcp'));

$addr = sockaddr_in(80, INADDR_ANY);
bind(HANDLE, $addr);

listen(HANDLE,$queuelength);

while(true)
{
 print "hallo1\n";
 print STDERR "before accept  ", scalar(localtime), "\n";
 accept(NEW_HANDLE, HANDLE);
 print STDERR "after  accept  ", scalar(localtime), "\n";
 select(NEW_HANDLE);
 print STDERR "after select   ", scalar(localtime), "\n";

 $line=<NEW_HANDLE>;
 print STDERR "after readline ", scalar(localtime), "\n";

 print $line;
 print STDERR "after print    ", scalar(localtime), "\n";
 print "hello2\n";
}
__END__
Output:

before accept  Sat Oct 11 16:01:55 2003
after  accept  Sat Oct 11 16:02:44 2003
after select   Sat Oct 11 16:02:44 2003
after readline Sat Oct 11 16:02:44 2003
after print    Sat Oct 11 16:02:44 2003
before accept  Sat Oct 11 16:02:44 2003
after  accept  Sat Oct 11 16:03:12 2003
after select   Sat Oct 11 16:03:12 2003
after readline Sat Oct 11 16:03:12 2003
after print    Sat Oct 11 16:03:12 2003
before accept  Sat Oct 11 16:03:12 2003