my $fh;
BEGIN {
    open $fh, '>>', '/var/foo.log' or die;
}
use My::Module $fh;