l55.pl

   1 package mycounter;
   2
   3 BEGIN {
   4     use Exporter();
   5     @ISA= qw(Exporter);
   6     @EXPORT= qw(&inc &dec &show);
   7 }
   8
   9 our $counter= 0;
  10 sub inc {$counter++;}
  11 sub dec {$counter--;}
  12 sub show {print "$counter\n";}
  13
  14 AUTOLOAD {print "No such funkshun '$AUTOLOAD'\n"};
  15
  16 return 1;
  17 END {}