Select Code to Download

use List::MoreUtils qw(any);
...
help() if any { $_ eq q{} } $server, $user, $database, $password, ... 
+;