my $i = 0;
EVAL("++$i; Do_Something()");
print "\$i equals $i\n";