my $maxTTL = 25;   # Don't go more than 25 hops

for my $ttl ( 1 .. $maxTTL) {
    # send_packet() returns (1, "Success") if the 
    # target host was reached or (0, [name of host]) if 
    # the host was not reached, where [name of host] is the 
    # name of the last host in the chain.
    # 
    my ($result, $host) = send_packet( ttl => $ttl );

    last if $result;

    print "$ttl \t $host \n";
}