#!/usr/bin/perl -w
use strict;
use Getopt::Std;
use File::Find;

my %opt;
@ARGV > 0 and getopts('n:s:m:', \%opt) and not (keys %opt > 1) or die << "USAGE";
Shows the biggest files residing in one or several directory trees.
usage: $0 [-n num] [-t size] [-m size] directory [directory ...]
       -n  show <num> files
       -s  show biggest files totalling <size>
       -m  show all files bigger than <size>
       use only one option at a time
       default is 20 biggest files
USAGE
my ($switch, $param) = %opt;

my %size;
find(sub {$size{$File::Find::name}=-s if -f;}, @ARGV);
my @sorted = sort {$size{$b} <=> $size{$a}} keys %size;

my $maxidx = 0;
if($switch eq 's') {
    ($param -= $size{$_}) >= 0 ? $maxidx++ : last for @sort;
}
elsif($switch eq 'm') {
    $size{$_} < $param ? $maxidx++ : last for @sort;
}
else {
    $maxidx = ($val || 20) - 1;
}
   
printf "%10d $_\n", $size{$_} for @sorted[0 .. $maxidx];

##</code><code>##

find( { wanted => \&print_if_dir, }, @dirs);

# or

find( { wanted => sub { print if -d }, }, @dirs);

##</code><code>##

find( {
    preprocess => sub { return grep { -d } @_ },
    wanted => sub { print },
}, @dirs);

##</code><code>##

my ($min_depth, $max_depth) = (2,3);

find( {
    preprocess => \&preprocess,
    wanted => \&wanted,
}, @dirs);

sub preprocess {
    my $depth = $File::Find::dir =~ tr[/][];
    return @_ if $depth < $max_depth;
    return grep { not -d } @_ if $depth == $max_depth;
    return;
}

sub wanted {
    my $depth = $File::Find::dir =~ tr[/][];
    return if $depth < $min_depth;
    print;
}

##</code><code>##

#!/usr/bin/perl -w
use strict;
use Getopt::Std;
use File::Find;

@ARGV > 0 and getopts('a:', \my %opt) or die << "USAGE";
Deletes any old files from the directory tree(s) given and
removes empty directories en passant.
usage: $0 [-a maxage] directory [directory ...]
       -a  maximum age in days, default is 120
USAGE

my $max_age_days = $opt{a} || 120;

find({
    wanted => sub { unlink if -f $_ and -M _ > $max_age_days },
    postprocess => sub { rmdir $File::Find::dir },
}, @ARGV);