perl -M'File::Find' -e '$\ = qq(\n); find sub { (-s > 1048576) && prin
+t $File::Find::name }, q(.);'
[download]

perl -M'File::Find' -e '$\ = qq(\n); find sub { (-M $_ > 60) && print 
+$File::Find::name. -M $_ }, q(.);'
[download]

Any answer you're going to get is going to rely heavily on using the filetest operators Perl provides, unlink, rename and the like; and File::Find (or perhaps just readdir) will probably also be in there somewhere.

Partially because Perl makes such things so easy to write, they don't get canned (it's a good learning exercise, for one).

I know this wasn't what you're looking for, but I hope it helps anyway!

Philosophy can be made out of anything. Or less -- Jerry A. Fodor

find / -mtime +7 -o -size +5000000c | mail -s 'Old and big files' mikf
+ire
[download]

If you wanted to get fancy, you could even try:

find / -mtime +7 -o -size +5000000c -ls | mail -s 'ls of Old and big f
+iles' mikfire
[download]

Seeking the proper tool for the job at hand,
mikfire

#!/usr/bin/perl -w
use strict;

my( $max_size , $min_size );

#parse args
for(@ARGV) {
    if( /^--max_size=(.*)/ ) { $max_size = int( $1 ) }
    if( /^--min_size=(.*)/ ) { $min_size = int( $1 ) }
}

# end prints with \n
$\ = "\n";

# open curent directory
opendir( DIR , "." );

# test directories one by one.
while( $_ = readdir( DIR ) ) {
    
    # drop "." and ".."
    next if /^\.\.?$/;
    
    # test for max length
    next if( $max_size and -s $_ > $max_size );

    # test for min length
    next if( $min_size and -s $_ < $min_size );
    
    print
}

# close...
closedir( DIR );
[download]