sub printUsage {
    my ($mandatory, $optional) = @_;

    print "Usage: $0\n";
    print "-$_ ", uc $_, " " for @$mandatory;
    print $/;
    print "[-$_ ", uc $_, "]" for @$optional;
    print $/;
}