I noticed this node on PerlMonks: http://www.perlmonks.com/index.pl?node_id=188405 which reminded of (-ugene's cantor golf game.
The program takes a single command line argument and prints a Sierpinski Triangle Fractal. In case anyone is bored and feels like golfing it, here it is: $-=1|1<<pop;print($"x$-,(map$_?'/\\':$"x2,@;), $/),@;=(1,map$;[$_]^$;[-$_],1..@;)while$--- /-\
