Select Code to Download

# this is still a fake!
sub mandelbrot {
    int rand 20;
}

#!/usr/bin/env perl

...
}
my $file = qq(mandelbrot.bmp);
$image->write( file => $file );

#!/usr/bin/env perl

...
}

__END__