my @files =grep(/$file_mask$/,readdir(DIR));