Select Code to Download

system(q{find . -type f -name '*.tbz2' -maxdepth 1 -cmin '+24' | xargs
+ rm})

opendir my $dh, '.';
for (readdir $dh) {
    unlink if -l and /\.tbz2$/ and 24 * 60 * -M > 10;
}