opendir(DIR, $srcdir) or die "Can't open $srcdir: $!"; 
    my @files = grep {!/^\.+$/} readdir(DIR);