my $c;
my $ev = '$c = 4 + 5';
eval($ev);
print $c;