package A;

require Exporter ;

our @ISA = qw(Exporter);
@EXPORT_OK = qw(suba);

sub suba {
    print "suba\n" ; 
}

1 ;
[download]

and then:

use strict;
use A qw(suba);

suba();
[download]