print_some_stuff(\*OUT);

sub print_some_stuff {
  my $fh = shift;
  print $fh "stuff\n";
}