add simple perl script