Take a look at IO::File.

my $handle = new IO::File "> $outfile";

print_stuff_to($handle);

sub print_stuff_to {
  my $fh = shift;
  print $fh "Foo Bar";
}
[download]