if (!$idd)
{
print "Account deleted \n";
}

(print "Accont $mail is deleted\n" and next) if !$idd;