Help for this page
/^#/ and next; open ... or die ...; -d $_ ? handle_directory($_) : handle_file($_);
next if /^#/; die ... unless open ...; parse_file($_) for @files;