Select Code to Download

unless ( $value =~ /^\d{5}$/ )          # UNTAINT
   {
   out_badlog();
   warn ("bad after UNTAINT\n");
   exit;
   }