Select Code to Download

while ( my $line1 = <$fh> )
{
...

    # etc
}

while ( my $line1 = <$fh> )

while ( defined(my $line1 = <$fh>) )

while ( my $line1 = <$fh> )
{
...

    # etc
}