perl -MFatal=open,close -e "open( F, q(fasel)); print <F>; close F;"