use Exporter; 
use vars qw(@ISA @EXPORT);

@ISA=qw(Exporter);
@EXPORT=qw( ... );