Plants vs Zombies registration key source code for Perl 5.0?

[Protoman]

please paste the script source in your answer. whenever I download the key generator, there is always a virus in it. please...