curl -s http://www.gutenberg.org/files/1080/1080.txt | tr ' \t' '\n\n' | sort | uniq -c | sort -n
and avoid any kind of procedural programming.
Along with BEGIN & END there is also UNITCHECK, CHECK & INIT in Perl: http://perldoc.perl.org/perlmod.html#BEGIN%2c-UNITCHECK%2c-C...
These named blocks are used under the hood in Perl all the time. For eg.
foo(); # => bar
sub foo { say "bar" }
BEGIN { *foo = sub { say "bar" } }
PS. Perl6 goes even further and calls them Phasers: http://feather.perl6.nl/syn/S04.html#Phasers