Just be careful you don't shadow one of your packages with a sub of the same name.

use strict;
use warnings;

package Foo;

sub bar { print "Foo::bar\n"; }

package Bar;

sub bar { print "Bar::bar\n"; }

package main;

sub Foo { "Bar" }

Foo->bar();
"Foo"->bar();

exit 0;

__END__
[download]