package Foo;
   use strict;
 
   sub foo {
     print "Foo\n";
   }
   1;

##</code><code>##

   package Bar;
   use strict;
   use Foo;

   sub bar {
    print "Bar\n";
   }
   1;

##</code><code>##

 package Something;
 use strict;

 use Bar;
 ....
 Foo::foo;
 1;