my $fh = do { local *FH; *FH };
open $fh, "<$filename" 
  or die "Cannot read $filename: $!";