#!/usr/bin/perl -w

use strict;
use File::Finder;
use Data::Dumper;

# list of dirs to look in
my @start_dirs = (
    '/home/chad/' ,
);

my $finder = File::Finder

    # do not go into the ~chad/Archives/ directory.
    ->type('d')->name('Archives')->prune->comma

    # match the following properties.
    ->type('f')      # files
    ->name('*~')     # named glob(*~)
    ->ctime('+6')    # inode changed time more than 6 days ago
#    ->ls()           # print `ls -l` of file
;

# run the finder command now.
my @file_list = $finder->in(@start_dirs);

# delete the found files.
my $count = unlink @file_list;
print "\nUnlinked $count files.\n";

exit(0);
[download]