perl -we "use strict; my $x; print (1,2,3) and $x++"

123