package My::Class; sub foo { print "Foo" } 1;