#!/bin/perl
# Peforms simple arithmetic
print "Please enter an arithmetic expression ";
$try = <STDIN>;
print "You entered ",$try;
$res = eval ($try);
print $res,"\n";