This does what you want.

#!/usr/bin/perl -l

use strictures 1;
use Data::Dumper::Concise;

my $fh;
my %x;
$x{'handle'} = $fh;
open $fh, '>-';
print Dumper($x{'handle'}), "Wow!";
close $fh;
[download]