foreach $file (readdir D)
{
    if ((-M "$dir/$file" > 30) && !unlink("$dir/$file"))
    {
       print "Oh no!!!!!\n";
    }
    # else it worked ###
}