some perl stuffs