A Nifty Perl Calculator