A Basic Perl Calculator