Hier die Lösung:
$verzeichnis = "ips";
$tage = 2;
opendir(CARDDIR, "$verzeichnis");
@items = grep(/[0-9]$EXT/,readdir(CARDDIR));
closedir(CARDDIR);
foreach $item (@items)
{
if (-M "$verzeichnis/$item" > $tage)
{
unlink("$verzeichnis/$item");
}
}