Select Code to Download

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

use Symbol qw(gensym);

# ...

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

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