package A;

require Exporter ;
require DynaLoader ;

our ($ISA, @EXPORT, $AUTOLOADER) ;
@ISA = qw(Exporter, DynaLoader) ;
@EXPORT = qw(suba) ;

sub suba {
	print "suba\n" ; 
}
1 ;
__END__

##</code><code>##

use A qw(suba);

&suba() ;
__END__