$dir = "c:/windows";
$age = -M $dir;

print "Dir $dir was last modified $age days ago\n";

# make a new dir just for fun
$dir = "c:/foo";
mkdir $dir;
$age = -M $dir;
print "Dir $dir was last modified $age days ago\n";
rmdir $dir; # delete this test dir