Traceroute в перл

[kukich]

Привет.Вот мой код:

#!/usr/bin/perl
$SIG{ALRM}=
sub{ print $trace;};
alarm 20;
$trace=`traceroute 89.179.112.0`;
alarm 0;

Задача следующая - есть адрес,надо посмотреть куда он уходит.Обычно в команде traceroute в конце идет ответ *** ,а это у меня не интересует.Хочу чтобы программа брала первые 20 секунд traceroute и выдавала мне их.А вместо этого она сначало выполняет 20 секунд traceroute ,а затем выполняет его еще раз для печати полностью,вместо того,чтобы напечатать что уже найдено.
Может есть какой то еще способ по таймауту выдавать traceroute?

 

[arto]

прибивайте сам процесс