view release on metacpan or  search on metacpan

eg/empty-old  view on Meta::CPAN

19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
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;