programming-examples/perl/Subroutine/Pass file handle global reference to a subroutine.pl

sub printhello
{
    my $handle = shift;
    print $handle "Hello!\n";
}
open FILEHANDLE, ">file.tmp" or die "Can't open file.";

printhello(\*FILEHANDLE);