The Code (sort of)
# imagine some commandline parsing & prompting my @data = ($target, $key); my $hex = sha1_hex(@data); my $prepare_seed = substr($hex,0,8); my $seed = hex($prepare_seed); srand($seed); my $pwd = join(' ', Data::Random::rand_words( size => $config->{size} || 4) ); Clipboard->copy($pwd);