open ( F, $filename ) or do { 
    $counter++;
    warn "Cannot open $filename ($counter): $!\n"; 
    # And whatever else you want... 
};