$ perl -le 'eval q{ print ++$x }; eval q{ print ++$x }'
1
2