package MyPkgDirectory::MyPkg; # assumes MyPkgDirectory/MyPkg.pm

use strict;
use warnings;

BEGIN {
    require Exporter;

    our $VERSION = 1.00;
    our @ISA = qw(Exporter);
    our @EXPORT = qw(samplewrite);
}

my $FH_text_W = $main::FH_text_W;
#my $FH_text_W;

sub samplewrite {
    my ($ver, $sheet) = @_;
    print "Debug: Version $ver\n";
    print "Debug: SHEET $sheet\n";
    print $FH_text_W "Version $ver\n"; # Bombs out here
    print $FH_text_W "SHEET $sheet\n"; # and here too
}

END { }
1;