Select Code to Download

C:\test>perl -le"print eval while<>;"
2+2
...
^Z

C:\test>

C:\test>perl -le"sub Log{log(pop)/log(10)}print eval while<>;"
Log(100)
...
1200
exp(log(30)+log(40))
1200