Select Code to Download

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

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