sub averageColor { my $image = shift; my @average = (0,0,0); my $x; my $y; my @rgb; print "load data..."; my $data = $image->data(-from => (0,0,$image->width()-1, $image->height()-1)); print "split..."; my @pixels = split(/ /,$data); print "avg..."; foreach (@pixels) { $average[0] += substr($_,1,2); $average[1] += substr($_,3,2); $average[2] += substr($_,5,2); } print "div..."; for $x (0 .. 2) { $average[$x] = int($average[$x] / ($image->width * $image->height)); } print "done\n"; @average; }