Select Code to Download

my $found = 0;
for (qx<tracert $ipaddy>){
...
  found = 1;
  last;
}

  if (grep {/myhost/}, qx<tracert $ipaddy>){
      #Do something 
  }else{
      #Addr was not found in trace
  }