while ($i < scalar(@ARGV)) {
	open(MYFILE, $ARGV[$i]) or die("Error: cannot open file '$ARGV[$i]'\n");