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