#!/usr/bin/perl

use strict;
use warnings;
use Time::HiRes qw(usleep);


require moduleA;
require moduleB;

 
&moduleA::functionA();

&moduleB::functionA();

&moduleB::functionB();

__END__


##</code><code>##

package moduleA;

use strict;
use warnings;

require Expect;
require Time::HiRes;
require moduleB;
use Time::HiRes qw(usleep);




sub functionA() {
	my variableA ="&moduleB::functionB";
..............
................
return someihng; 
}
    


##</code><code>##

 pp start.pl -I ModuleA.pm ModuleB.pm -o start