Select Code to Download

    use strict;
    use warnings;
...

    print "Found $uniq colors in $pixels pixels $factor\%\n";
__END__

> time pyrperl uniqcolors.plx
Found 153601 colors in 153606 pixels 1.00% ( File size:  921,638 )
real    0m0.098s
user    0m0.092s
sys     0m0.008s

> time pyrperl uniqcolors.plx
Found 460775 colors in 41473710 pixels 0.01% ( File size:  248,842,260
+ )
real    0m15.015s
user    0m14.937s
sys     0m0.080s