sub pi
{
#         1         2
#1234567890123456789012345
print"3.14159265358979\n";
}
[download]

Actually, I think it is a little tricky to devise a Perl program that accurately calculates pi. A monk once made this post that seemed to inaccurately calculate pi.

metadoktor

"The doktor is in."