#!/usr/bin/perl 

use Foo;

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