#!/usr/bin/perl

use warnings;
use strict;

my $a = 10;
my $b = 3;
my $c = 5;

my $d = "\$a + \$b * \$c";
print "$d\n";
print eval($d) . "\n";