#!/usr/local/bin/perl mkdir ("c:\\",0)||warn "$!"; for ($i = 0; $i < 10; $i++){ mkdir ("c:\\\\rmdir$i",0)||warn "$!"; } chdir ("c:\\Testlistings"); use Cwd; $dir = cwd(); opendir (DH, $dir) || warn $!; while ($dirName = (readdir(DH))){ if ($dirName =~ /^rm/){ print "Removing $dirName\n"; rmdir ("$dirName") || warn $!; } }