added a perl script for clip-paste