Select Code to Download

use IO::Scalar;
my ( $STD1 $STD2 );
...
open FILE, ">test.txt";
print FILE $STD2;
close FILE;

open FILE, ">test.txt";
select FILE;
...
print <<DONE;
all that stuff again. I am
DONE