package Foo;

use strict;
use warnings;

our @EXPORT = qw( frobnicate );

warn "Foo.pm\n";

sub frobnicate
{
    print FH "XYZ\n\n";
}

1;