perl -le "$i=5;print $i,eval('$i++;print $i;');print $i"