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

printhello(\*FILEHANDLE);