open(my $file, '>', 'temp.txt')
   or die("Can't create output file: $!");

greet($file);

sub greet {
   my ($fh) = @_;
   print $fh "Hello World\n";
}