if ($person eq 'GwenDragon') {
  carp "Error: Laecheln ist die freundlichste Art, die Zaehne zu zeigen...\n";
}