shell> perl -MO=Deparse - open(GENERAL_LOG,">$generalFile"); close{GENERAL_LOG}; open GENERAL_LOG, ">$generalFile"; close *{{'GENERAL_LOG'}}; - syntax OK