Select Code to Download

#!/usr/bin/perl
use strict;
...
my $content = do { local $/; <> };

print "$content\n";