perl -Mstrict -we 'eval q(x=3) or die "err $@"'