my $path=File::Spec->join("bilder","$id.jpg");
unlink($path) or die(qq#ERROR DELETE "$path" ($!)#);