Select Code to Download

#!/usr/bin/perl

...
$z = 1/$z if $neg;
my $e = abs($z - $X ** $Y);
print "z=$z, e=$e\n";