Select Code to Download

open my $handle, '>', $file  or die "$file: open failed: $!";
print $handle "text\n"       or die "$file: print faield: $!";
close $handle                or die "$file: close failed: $!";

use CGI::Carp qw(fatalsToBrowser);