foreach $file(readdir DH) {
    $name = $file;
    next if $name =~ /^\./; # skip over dot files
    &addheader($_);
}