use strict;
use warnings;

my @operators = qw(+ - * /);
my $expression = (int rand(100)) . $operators[int rand(4)] . (int rand(100));
my $answer = eval $expression;
print "$expression = $answer";

##</code><code>##

78+63 = 141