fd open test perl script