Select Code to Download

open( IN, "<", $file ) or die "Can't open: $file: $!\n";
my $str = do { local $/; <IN> };
close( IN );