Select Code to Download

#!/usr/bin/perl -w
#Compute pi. Based on Leibniz's algorithm that
...
        };
        return $sub;
}

$p=4;$n=l();for(1..100000){($s,$a)=&$n;$p=$p-$s+$a}print$p;
sub l{$i=1;sub{$i+=2;$f=4/$i;$i+=2;$q=4/$i;($f,$q)}}