Select Code to Download

sub DisplayUsage {
    print <<"    USAGE";
...
    
    USAGE
}

sub GenPass {
    my ($pwdlen, %flags) = @_;
...

    return "$password\n";
}