use Math::Expression;

my $me = Math::Expression->new;
print $me->Eval( $me->Parse("2 + 2") );

__output__

4