while ($file = readdir (DIR))
{
	if ($file !~ /^\.+$/)
	{
		# GET THE AGE OF THE FILE IN DAYS
		# -M gives us the age of the file in days when script started.
		# It needs to be rounded!
		
		$age = -M ($file);
		$age = sprintf ("%0.0f", $age);
		
		
		print "FILE: $file:\n\tAGE: $age\n";
		
		if ($age > 2)
		{
			print "DELETE ME!\n";
		}
		else
		{
			print "SAVE ME\n";
		}
	}
}

##</code><code>##

  7 -rw-rw-r--   1 root         6441 Jun 17 00:00 2001-06-16T194921Z_01_N16487427_RTRIDST_0_HEALTH-DOCTORS-UNION.XML
   6 -rw-rw-r--   1 root         5148 Jun 17 04:55 2001-06-17T082435Z_01_L17466768_RTRIDST_0_HEALTH-ISRAEL-TEVA.XML
   9 -rw-rw-r--   1 root         8558 Jun 17 13:05 2001-06-17T163225Z_01_N17218051_RTRIDST_0_-FINANCE-IPO-OUTLOOK.XML
  10 -rw-rw-r--   1 root         9490 Jun 17 13:50 2001-06-17T171804Z_01_N17360454_RTRIDST_0_CONGRESS-HEALTH.XML
   7 -rw-rw-r--   1 root         6176 Jun 18 03:05 2001-06-18T063312Z_01_ZUR821703_RTRIDST_0_HEALTH-MEDICA-IMPLANTS-U
RGENT.XML