[rochester-pm-list] ping

[Bryan]

This is my code,

#!/usr/bin/perl
print "Content-type: TEXT/HTML\n\n";
print "start ping<P>";
use Net::Ping;
$p = Net::Ping->new() or die "Can't create new ping object: $!\n";
print "yahoo.com is alive" if $p->ping('[D');
$p->close;
print "end ping";

Why doesnt it work?

I am using 9netave's server... and the code works, but returns only my start 
and end print's thats it... anyone have any pointers for me?

-Bryan