in reply to checking values of variables
It might be slightly less cumbersome and still be quite legible to use something like this:
for my $param ($server, $database, $user, $password, ... $sendmail, $initversion) { help() and last if ($param eq q{}); }
In Section
Seekers of Perl Wisdom