Add level generation perl script