/^#/ and next;
    open ... or die ...;
    -d $_ ? handle_directory($_) : handle_file($_);

##</code><code>##

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