Help for this page

Select Code to Download

Select or download this

print $t->waitfor(String=>"HTTP", Timeout=>5 );

Select or download this

[meonkeys@serendipity scripts]$ telnet 127.0.0.1 80
Trying 127.0.0.1...
Connected to 127.0.0.1.
Escape character is '^]'.