package Bar;
   use strict;
   use Foo;

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