if( $info[0] ne __PACKAGE__ ) {
      print "(test) nicht erlaubt: Aufruf aus Package $info[0]\n";
    }