Help for this page
$ perl -Mstrict -Mwarnings -E 'say "starting: " . scalar @ARGV; while( +<>){chomp; say "$_\nremaining: " . scalar @ARGV}' foo bar baz
starting: 3 foo ... remaining: 1 baz remaining: 0