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