Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my $z = $y * (2 ** $i);

print "Pi is close to: $z\n";