next if /^#/;
    die ... unless open ...;
    parse_file($_) for @files;