my $x = <STDIN>;
eval($x);                               <-- eval EXPR