Here is a snippet of code that I wrote do some something similar (on win32):

    $create_date = stat($_)->ctime;
    if ($create_date < ($current_date - $set_time)) {
        if (unlink ($_)) {

            open(LOG, ">>$logfile") or warn "discarding logfile output
+\n";
            print LOG "FIle: $_ - has been deleted.\n";
            close (LOG) or warn "Can't close $logfile: $!";    

        } else {

            open(ERRLOG, ">>$errorlog") or warn "scrapping error outpu
+t\n";
            eval { die "($!)"; };
            if ($@) { print ERRLOG "Cannot delete file $_ : $@!\n"; }
        }

    } else {

        open(LOG, ">>$logfile2") or warn "discarding logfile output\n"
+;
        print LOG "The file $_ is newer than 30 days.\n";
        close(LOG) or warn "Can't close $logfile2: $!";
    }
[download]

I am deleting on a creation date test, but you can still view the method. Its a little different than using a direct die statement inside a foreach, but it gets the job done.

Thanks,
djw