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

##</code><code>##

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