Test file access perl script