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

##</code><code>##

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