Select Code to Download

while (my $line = <$fhi>) 
    {   
...
        print $fho;

    }

while (my $line = <$fhi>)
{
...

    print $fho $line unless $time > 34;
}