寻找到一个ping模块，实践了一把

 #ping测试
 #疑问，这种结构else如何表达
 
  use Net::Ping;
    $host='192.168.195.1';
    $p = Net::Ping->new();
    
     print "$host is alive.\n" if $p->ping($host);
    
    $p->close();