mkdir("dict");
my $str="dict/";
opendir(DIR,$str);