Select Code to Download

sub printUsage {
    my ($mandatory, $optional) = @_;
...
    print "[-$_ ", uc $_, "]" for @$optional;
    print $/;
}

my @mandatory = qw(user to_db to_sid to_site);
my @optional  = qw(password vendor type model);
...
    unless $rc;
printUsage(\@mandatory, \@optional, \@default)
    if grep !exists $args->{$_}, @mandatory;