sub function{
   my ($package,$file) = (caller())[0..1];
   die "Aufruf nicht erlaubt!\n" unless(($package eq $ownpackage) && ($file eq _ _FILE_ _);
   [...]
}