perl -MFatal=open,close -e 'open( F, "fasel"); print ;close F;'