package Alpha;
use strict;

BEGIN {
        use Exporter ();
        use vars qw ($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
        $VERSION     = 0.01;
        @ISA         = qw (Exporter);
        @EXPORT      = qw (foo);
        @EXPORT_OK   = qw (foo);
        %EXPORT_TAGS = ( all => [qw/foo/]);
}

sub foo {
        print "Working\n";
}

1;