use strict;
use warnings;
use Imager;
use Imager::Filter::Mandelbrot;

my $im = Imager->new(xsize => 1000, ysize => 1000);
$im->filter(type => 'mandelbrot',) or die("# ", $im->errstr, $/);
$im->write(file => 'mandel1.png');