Select Code to Download

my $TestText;

...
open( my $out, '>', "TestFinal.txt" ) or die "cannot create TestFinal 
+$!";
print $out $TestText;
close $out;