while ( 1 ) {

        my $ret;
        my $duration;
        my $ip;

        ( $ret, $duration, $ip ) = $p->ping( $host, 5.5 );

        printf( "$host [ip: $ip] is alive (packet return time: %.2f ms)\n", 1000 * $duration );
}