my $fh= do { local(*FILE); \*FILE };