Very small critisms that go a long way:

1. Instead of using $DEBUG as a variable, why not 'declare' it as a constant:

   use constant DEBUG => 0;
   [download]

2. Testing if something is equal to "1" is overkill, all you need to know is if the variable is non-zero or not. Both of these are equal in consequence:

   print gmtime($object) ."\n" if $DEBUG == "1";
   print gmtime($object) ."\n" if $DEBUG;
   
   # ahem, but since we'll be using the constant DEBUG
   print gmtime($object) ."\n" if DEBUG; # sorry i didn't mention this ea
   +rlier
   [download]

3. last issue, your first for loop:

   for ( @filename ) {
       my $filename = $_;
       ...
   }
   [download]

   can be more consisely written as:

   for my $filename (@filename) {
       ...
   }
   [download]

Other than that, it works, and that's the most important thing, right? :)

Jeff

R-R-R--R-R-R--R-R-R--R-R-R--R-R-R--
L-L--L-L--L-L--L-L--L-L--L-L--L-L--