Select Code to Download

[18:25][nick:~/monks]$ cat 1135741.pl 
#! perl -w
...
say "Done.";

__END__

[18:25][nick:~/monks]$ cat test.dat
foo
bar
baz
quux

[18:26][nick:~/monks]$ perl 1135741.pl 
Done.

[18:26][nick:~/monks]$ cat test.dat
[18:26][nick:~/monks]$