some perl script