three useful perl script used