sub loc
{
  my $key=shift;
  my @opts=@_;

  # die Überstzung holen
  $text=$langusge{$key};

  return sprintf($txt,@opts);
}