$ echo foo | perl -le'$!=1; print 0+$!; <>; print 0+$!'
1
9