Shell Programming and Scripting

#!C:/perl/bin/perl.exe
use Net::Traceroute;
$tr = Net::Traceroute->new(host=> "google.com");
if($tr->found) {
my $hops = $tr->hops;
if($hops > 1) {
print "Router was " .
$tr->hop_query_host($tr->hops - 1, 0) . "\n";
}
}

my $tr=Net::Traceroute->new(
                            host=> "google.com"
                            trace_program=>"tracert"
                           );

;

my $tr=Net::Traceroute->new(
                             host          => "google.com",                             
                             trace_program => "tracert"                            
);