Select Code to Download

#!/usr/bin/env perl
use warnings;
use strict;
...
  }
  print "       Pi ", Pi(), "\n\n";
}

Using drand48:
      10  2.73861279
     100  3.06186218
...
 1000000  3.14020372
10000000  3.14130744
       Pi 3.14159265358979