use Symbol;
my $fh = gensym;
open $fh, $filename;