first perl script add