Help for this page
$ perl slope3.pl Prototype mismatch: sub math1::pi () vs none at ../math1.pm line 13. ... say "pi is $a"; __END__ $
$ cat math1.pm package math1; ... 1; $