Or, still without List::MoreUtils:
help() if grep {! $_} $server, $user, $database, ...; [download]
In reply to Re^4: checking values of variables by Laurent_R in thread checking values of variables by fionbarr