$ perl -Mstrict -Mwarnings -E 'say "starting: " . scalar @ARGV; while(<>){chomp; say "$_\nremaining: " . scalar @ARGV}' foo bar baz