Если не подходит Net::Ping;
то имхо можно чтонить в духе:
my $ping = `ping --args`;
print "$ping<br>\n";