#!/usr/bin/perl

use strict;
use warnings;
use Net::Traceroute;

my $tr = Net::Traceroute->new(
           host => 'www.students.cs.unibo.it',
           queries => 1);

if ($tr->found) {
  my $hops = $tr->hops;
  foreach (1..$hops) {
    printf("%02d: %-15s %d %.3f ms\n",
           $_,
           $tr->hop_query_host($_, 1),
           $tr->hop_query_stat($_, 1),
           $tr->hop_query_time($_, 1));
  }
}