Example 5-18. examples/scalars/basic_calculator_eval.pl

#!/usr/bin/perl
use strict;
use warnings;

print "Type in 2 numbers and an operator and I'll print the results\n\n";
 
print "First number: ";
my $first = <STDIN>;
chomp($first);
 
print "Second number: ";
my $other = <STDIN>;
chomp($other);
 
print "The operator: ";
my $oper = <STDIN>;
chomp($oper);
 
my $result = eval "$first $oper $other";
 
print "\nResult of $first $oper $other = $result\n";