in reply to specifying numeric values for scalar variables with $ARGV
while (<INPUT>) [download]
while (<>) [download]