my $white = Imager::Color->new("white");
...
$img->polygon (points=>\@polygon, color=>$white);