Select Code to Download

open my $FILE1_TEMP, '+>', $file1_temp or die "Could not open $file1_t
+emp: $!";

use strict;
use warnings;
...
seek $ioFile, 0, 0;
print while <$ioFile>;
close $ioFile;