unlink $_ for(grep{$_ !~ /^\.\.?$/}readdir(DIR));