(perl) a small lightweight SmokeBox