view release on metacpan or  search on metacpan

eg/empty-old  view on Meta::CPAN

unless ($age =~ /^\d+$/) {
    die "$0: age must be an integer\n";
}

$dir = '.' unless defined $dir;

opendir DIR, $dir or die "$0: opendir $dir: $!\n";

open SEEN, ">>$dir/.seen" or die "$0: open >>$dir/.seen: $!\n";

$/ = "";
my $file;
my $hdr;
my $path;
while ($file = readdir DIR) {
    next if $file eq ".seen";

    $path = "$dir/$file";

    next unless -f $path;