$flg = "/?";
$dir =`dir c: $flg`;
print $dir;