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