#!/usr/bin/perl
use strict;
use File::Find;

if ($ARGV[0] eq "") { $ARGV[0]="."; }

my @file_list;
find ( sub {
  my $file = $File::Find::name;
  if ( -f $file && $file =~ /^DATE_/) {
    push (@file_list, $file) 
  }
}, @ARGV);

my $now = time();       # get current time
my $AGE = 60*60*24*14;  # convert 14 days into seconds

for my $file (@file_list) {
  my @stats = stat($file);
  if ($now-$stats[9] > $AGE) { # file older than 14 days
    print "$file\n";
  }
}


##</code><code>##

cleanup.pl /var/backups/repository

##</code><code>##

unlink $file;