Select Code to Download

use IO::Handle;
my $fh = IO::Handle->new;
tie *$fh, ...;

use Symbol qw/gensym/;
my $fh = gensym;
tie *$fh, ...;

my $fh = \do { local *HANDLE };