if ( $password eq '12Three' ) {
  warn "ALERT: unimaginative user detected, take evasive action";
}