#!/usr/bin/perl

use warnings;
use strict;

my @tracert = `tracert ####`;
my $i;

foreach $i(@tracert)
{
   print "$i\n";
}