backing up perl script