open my $fh, "<", $filename;

##</code><code>##

use Symbol qw(gensym);

# ...

open +(my $fh = gensym), "<$filename";

##</code><code>##

my $fh = open "<", $filename;