Select Code to Download

open (FILE, $filename) or die "Can't open $filename: $!\n";
print $_ while (<FILE>);
close FILE;