package Subs;
BEGIN {
  use Exporter;
  our @ISA = qw(Exporter);
  our @EXPORT = qw($Foo &foo);
}
our $Foo = 3;
sub foo { $Foo++ }
1;