# file Foo.pm
package Foo;
sub foo{
    print "foo called\n";
}

# the following are testing code
package main;
Foo::foo();

1;