http://www.perlmonks.org?node_id=1069622


in reply to 2014 Code Golf Challenge

The source must not contain any digits, but if you name your script '2014', then the following does the job ;)

print${$|}

Replies are listed 'Best First'.
Re^2: 2014 Code Golf Challenge
by tobyink (Canon) on Jan 07, 2014 at 08:38 UTC

    That's clever. I must admit that it took me a while to figure out what was going on there.

    use Moops; class Cow :rw { has name => (default => 'Ermintrude') }; say Cow->new->name