while ( $phile=readdir(DIR)){
        if($phile=~/^\.$/){next;}
        elsif($phile=~/^\.\.$/){next;}