My perl is too old for this, and my dial up too slow for the new, but never mind. Another initially surprising method of generating the fractal is the following code

#!perl -l
print$"x--$^F,map$^F&$_?$"x2:"/\\",0..$y++while$^F<<=pop
[download]

which pops a number and uses it for the size of the fractal.