Select Code to Download

$time = <>;   chomp $time;

while (<$fh>)
{
...
   my( $n, $i, $t ) = split;
   $found = 1 if $t eq $time;
}