my perl script collection with some explanation