$pid = open(PIPE, "|-");
if($pid){
　exec("command");
　exit();
}else{
　while($string = <PIPE>){
　　print $string;
　}
}
坊主、これでいいか？

>>558
NTPを使わない/使えない 理由は？
NTP使うのが一番楽だし、上記の理由によっちゃPerlでもダメって事もあるぞ