#!/usr/bin/perl
use Math::Complex;

$Nx = 100;         # all variables need $ or @.
$Ny = 100;         # no need to declare variables, only initialize them.
$max_steps =  30; # no typechecking


for ($i=0; $i<$Nx; $i++){
    for ($j=0; $j<$Ny; $j++){
	$x = -2. + 3.*$i/($Nx-1);
	$y = -1. + 2.*$j/($Ny-1);
	$z0 = $x + $y*i;
	$z=0;
	for ($itr=0; $itr<$max_steps; $itr++){
	    if (abs($z)>2.) {last;}
	    $z = $z*$z + $z0
	}
	print "$x $y ", 1/$itr, "\n";
    }
}