#! perl -slw
use strict;
use GD;

my @d2D = map[
    map{ rand > 0.2 ? ' ' : '.'} 1 .. 1500
], 1 .. 1500;

my $i = GD::Image->new( 1500, 1500, 0 );
my $black = $i->colorAllocate( (0)x3 );
my $white = $i->colorAllocate( (255)x3 );

for my $y ( 0 .. 1499 ) {
    for my $x ( 0 .. 1499 ) {
        $i->setPixel( $x, $y,
            $d2D[ $y ][ $x ] eq ' ' ? $white : $black
        );
    }
}

open PNG, '>:raw', "$0.png" or die $!;
print PNG $i->png;
close PNG;

system 1, "$0.png";