Select Code to Download

#!/usr/local/bin/perl

...
binmode FILE;
print <FILE>;
close FILE;

binmode STDOUT;