#!/usr/bin/env perl
#$Name$
#$Id$

use FileHandle;
my $FName = shift(@ARGV) || "";
my %uHHash;
if ($FName ne "")
{
  open($uH, ">".$FName);
  $uHHash{uHANDLE} = $uH;
}
else
{
  $uHHash{uHANDLE} = STDOUT;
}
printf($uHHash{uHANDLE} "Output is here (%s) !\n","HJGKJGJHJLHL");
close($uHHash{uHANDLE});
exit(0);

##</code><code>##

 ...
my $uuh = $uHHash{uHANDLE};
printf($uuh "Output is here (%s) !\n","HJGKJGJHJLHL");
close($uHHash{uHANDLE});
exit(0);