if (uc $error eq "ERROR"){
   # . . .
}