http://qs1969.pair.com?node_id=1074985


in reply to @ARGV in while loop

However, if you want to print what <> is currently consuming, you can:

use strict; use warnings; print $ARGV[0], "\n"; #printed while (<>) { print "$ARGV\n"; #can be printed }