#!/usr/bin/perl

use File::Basename;
$PROGNAME=basename($0);

if ($ARGV[0] eq "-h" || $ARGV[0] eq "--help") {
	print <<EOF;

	usage: $PROGNAME [length]
		if no length is specified, password will be 8 characters
		minimum length is 3 characters, no maxium

EOF
exit;
}

$length=$ARGV[0];
$passwd = random_password();
print "Your password is:  $passwd\n";
sub random_password {
        if ($length eq "" or $length < 3) {
                $length = 8;            # make it at least 8 chars long.
        }
        $vowels = "aeiouyAEUY";
        $consonants = "bdghjmnpqrstvwxzBDGHJLMNPQRSTVWXZ123456789+!@%&*=%";
        srand(time() ^ ($$ + ($$ << 15)) );
        $alt = int(rand(2)) - 1;
        $s = "";
        $newchar = "";
        foreach $i (0..$length-1) {
                if ($alt == 1) {
                        $newchar = substr($vowels,rand(length($vowels)),1);
                } else {
                        $newchar = substr($consonants, 
                                rand(length($consonants)),1);
                }
                $s .= $newchar;
                $alt = !$alt;
        }
        return $s;
}