if ($name and -e (my $img = "data/dieren/$name.jpg")) {
printf '<img src="/%s"', $img;
printf ' alt="%s"', -l $img ? readlink($img) =~ s/\.jpg$//r : $name;
if ($name and -e (my $img = "data/dieren/$name.jpg")) {
printf '<img src="/%s"', $img;
printf ' alt="%s"', -l $img ? readlink($img) =~ s/\.jpg$//r : $name;