Select Code to Download

$ perl -Mstrict -Mwarnings -E '
open my $wordsFH, q{<}, \ <<EOF or die $!;
...
cat => 2
dog => 1
$