file support for perl script