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


in reply to Sierpinski Triangle

Neat.
And here is a default-supplying line, to prepend to it. 
@ARGV||push@ARGV,5;

[download]
Rudif

In Section Obfuscated Code