my $foo = 42;
eval q[$foo++];