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

##</code><code>##

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

##</code><code>##

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