Net::Traceroute..?

Hej,

Jeg forsøger at få en trace via Net::Traceroute til at vise det samme som en normal traceroute..

perldoc Net::Traceroute kan jeg ikke lige gennemskue.. :(

pt viser mit lille script dette:

-------

# ./tracetest
Hops was 9
Router was 194.255.57.14
Round trip was 41.217
#

------script------

#!/usr/bin/perl -w

use Net::Traceroute;

$host = \"www.eksperten.dk\";

sub trace_host() {
    $tr = Net::Traceroute->new(host=> $host);
    if($tr->found) {
        my $hops = $tr->hops;                 
        print \"Hops was $hops \\n\";
        if($hops > 1) {
            print \"Router was \" .
                $tr->hop_query_host($tr->hops - 1, 1) . \"\\n\";
            print \"Round trip was \" .
                $tr->hop_query_time($tr->hops - 1, 1) . \"\\n\";
        }
    }
}

trace_host();
---------script-end------

Er der nogen der har erfaringer med Net::Traceroute som kunne give et hint til dette.. ??