my $code = '1+1';
my $result = eval $code;
print $result, "\n";