Help for this page
A.pm B.pm ... Foo/A.pm Foo/Bar/B.pm
BEGIN { push(@INC, $ENV{'HOME'} . '/lib'); }
#!/usr/bin/perl ... my $a = Foo::A->new(); my $b = Foo::Bar::B->new();