use Imager;

open( URANDOM, "</dev/urandom" ) # NTSC ;-);
read( URANDOM, $_, 4 );
close URANDOM;
srand( unpack( "L", $_ ) );

my $image = Imager->new( xsize => $width, ysize => $height );
my $white = Imager::Color->new( 255, 255, 255 );
my $black = Imager::Color->new( 0,   0,   0 );
my @palette;

for ( 1 .. 20 ) {
    my ( $r, $g, $b ) = map { int rand 255 } 1 .. 3;
    push @palette, Imager::Color->new( $r, $g, $b );
}

# dd \@palette;