#!/usr/bin/perl
use warnings;
use strict;

while (<test/*.txt>) {
    if (-f && 10 < -M _) {
        print "\n Deleting::: $_\n";
        unlink or warn "--Could not unlink $_: $!";
    }
}