my $DIR;
opendir $DIR, $dir;