empty perl script