package Bar;

sub identify {
  print "I'm in package " . __PACKAGE__ . "\n";
}

1;

##</code><code>##

#!/usr/bin/perl 

use Foo;

Bar->identify();
Foo->identify();

##</code><code>##

I'm in package Bar
Can't locate object method "identify" via package "Foo" (perhaps you forgot to load "Foo"?) at...