note
mce
<div class="pmsig"><div class="pmsig-97646">
use [cpan://Net::Telnet|Net::Telnet]
f.e.
<code>
use Net::Telnet;
if ( my $t=new Net::Telnet(Port => 80, Host => "localhost", Timeout => 5 )->open() ) {
print "localhost is active";
$t->close();
};
</code>
Or in shell,
<code>
echo "."|telnet localhost 80
</code>
This should do the trick
<BR>
---------------------------<BR>
Dr. Mark Ceulemans<BR>
Senior Consultant<BR>
<a href=http://www.bmc.com>BMC</a>, Belgium<BR>
</div></div>
306282
306282