#!/usr/bin/perl 

use strict; 
use warnings; 

my $f=\*stdout; 
my $h={}; 
 
$h->{FILE}=$f; 

print $h->{FILE} "Hello\n";