Net::Ping::External

ICMPのpingを実行する 

use Net::Ping::External qw(ping);
パッケージをロードして関数をエクスポートする

my $r = ping(%options);
pingを実行して、成功すればtrueを返す
%options：主要なオプションは下記の通り
　host：ホスト名またはIPアドレス
　timeout：タイムアウト時間、デフォルトは5秒。
　count：pingを実行する回数、デフォルトは1。