perlでPORT監視の方法

PORT監視がしたいのですが、下記のように書くと
”NG”にならずに常に”OK”となってしまいます。
使用していないPORTを指定しても常に”OK”となります。
LAN内ではうまく動かないのですが、何か良い方法がありましたら
アドバイスをお願い致します。

#!/usr/bin/perl

use Net::Ping;
$target = '192.168.xxx.xxx';
$ping = Net::Ping->new("tcp", 2);
$ping->{port_num} = 3306;

if ($ping->ping($target)) {
print "OK\n";
} else {
print "NG\n";
}

$ping->close();

exit;

No.1 ベストアンサー 回答者： osamuy 回答日時： 2012/05/04 08:35

$ping->service_check( 1 );

――を追記してみるとか。

この回答へのお礼

ご返信ありがとうございます。
無事に動きました。
ありがとうございました。

お礼日時：2012/05/04 12:28