Help for this page
open ( F, $variable ) || warn "Can not open $variable: $!\n";
open ( F, $variable ) || warn "Can not open $variable: $!\n, $counter +++";