Select Code to Download

print IO::File->input_record_separator while $fh->getline;

use strict;
use warnings;
...
}

close(FILE);