<perl>

   'Ü'=>'%dc',
   'Ä'=>'%c4',
   'ö'=>'%f6',
   'ü'=>'%fc',
   'ä'=>'%e4',
); ### hier fehlte ;
sub my_convert{
  my $string=shift;
  $string=convert_url($string);
foreach (keys %umlaut){
   $string=~s/$_/$umlaut{$_}/g;
  }
  return $string;
}
if($cmd eq "all")
{
out "<a href='http://www..../druck&cmd=all&Id==$_id'><font face=verdana size=2>Druckansicht</a>";
}
else
{
out "<a href='http://www..../druck&".my_convert(join//,@_sel)."'><font face=verdana size=2>Druckansicht</a>";
}
</perl>