my @files = glob($dn.'/*.pl');