DOS下的ping功能如何用perl实现

[TriVector]

应该是这个: net::ping
Pearl 官方手册

比如:

my $a;
my $p;
use Net::ping;
$p = Net::ping->new();
$a= $p->ping("$host");
$p->close();
#在这里做你要得选择判断