opendir(DIR,$dir) or die $!;