Added a perl script drawing the sierpinski fractal to an asymptote file.