【perl】Net pingの結果をHTML表示させたい

質問

以下のプログラムですが、結果をHTMLで表示させたいのですがなぜか表示されません。
コマンドでは正常にprintされています。

理由がわかりません。use Net::Ping;が原因でしょうか？
hostの状況をHTMLでチェックしたいのです。
よろしくお願いします。

use Net::Ping;

$host="192.168.0.1";

$timeout=1;

$pObj = Net::Ping->new("icmp");

if($pObj->ping($host, $timeout)){
print "$host is running.\n";
}

$pObj->close();

回答No.2

noname#191236

こんにちは。

print "Content-type: text/html\n\n";
print "$host is running.\n";

で出来ませんか？

回答No.1

BLUEPIXY

コマンドで正常ということは、端末側で実行、ＨＴＭＬで表示ということでしょうか
ActivePerl+IEだったら
PerlScriptで実行表示できると思います。

サーバーでＣＧＩとして実行するという意味なら、
192.168.0.1は、サーバーからpingが届く位置にあるのでしょうか
勘違いコメントだったらすみません

補足

ご回答ありがとうございます。

環境はRedHatです。

コマンドからの実行は正常で戻り値も正常です。
なのにHTMLでブラウザーにはなにもでません。

なぜでしょう？