in file FOO/Bar/Baz.pm

package FOO::Bar::Baz;

sub some_function {
	login();
}

in file FOO/Bar.pl

package FOO::Bar;

sub login {
	# something interesting
}