package Test;
...
sub _privat {
    # mach was
}
...
1;

package main;
...
my $t = Test->new();
$t->_privat(); # geht bislang, sollte aber nicht!