Select Code to Download

use strict;
use warnings;

...

close(FILE);
close(OUT);

while (my $line = <FILE>)
{
     # ... Use $line where you would normally use $_
}