Select Code to Download

#!/usr/bin/perl

...
    my $e = abs($z - $Z);
    printf "%3d: z=%8f, e=%8f\n", $i, $z, $e;
}