for (glob ("$upload_dir/$in{'imgid'}.*")) {
   unlink($_)
      or die("Can't delete file $_: $!\n");
}