perl -le "print( ($.||1..undef)-1 )for 1..4"