Select Code to Download

#! perl -slw
use strict;
...
open $fh, '<', 'junk.dat' or die $!;
print while <$fh>;
close $fh;