open ( F, $filename ) or warn "Cannot open $filename (", $counter++, "): $!\n";