$ ls
Foo.pm Bar.pm
$ perl Foo.pm
Foo::foo was called