package Test1;

use Devel::SawAmpersand qw(sawampersand);
use Exporter;
use vars qw(@ISA @EXPORT);
@ISA = qw(Exporter);
@EXPORT = qw(testbelow);

sub testbelow {
  print "Inside Test1::testbelow";
  print "sawampersand? ", (sawampersand() ? "yes":"no");
  print "Outside Test1::testbelow"
}

1;