use strict;

  my $host = <STDIN>;
  chomp($host);
  my  @data = &traceroute($host);

  print " Data :@data \n";


 sub traceroute()
  {

    my ($ht) = @_;
    open EXE," traceroute -m 10 $ht  |" or die " Error Running command $! ";
    my @output =  <EXE>;

    close(EXE);
    ##print " Data : \n @output \n";
    return (@output);
    }