perl -MMath::Symbolic=parse_from_string -MMath::Symbolic::Compiler=compile_to_sub -e '             
 die "no!" unless
     @ARGV==1 
 and defined($e=$ARGV[0])
 and not $e=~/^\s*$/
 and defined($t=Math::Symbolic::parse_from_string($e))
 and ($s) = Math::Symbolic::Compiler->compile_to_sub($t)
 and $s 
 and ref($s)eq"CODE" 
 and defined($r=$s->()) 
 ;
 print "$r\n";
' 'sin(log(2,2))'