Select Code to Download

while (my $line = <$IN>)
{
    # ...
}

while (my $line = <$IN>)
{   my $eof = chop( $line );    # This removes last char and saves
...

    # ...
}