#!/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; }