package My::Module;

shift;              # throw away my own package name
our $fh   = shift;
{...}               # check to see it's a good filehandle

sub later {
    print $fh, 'Arbitrary text.';
};

1;