sub list { 
   my ($path, $comp) = @_;

   $comp =~ m#^(..)/(..)/(....)$#
   or die("Error: Badly formatted \$comp.\n");

   my $comp_d = $1;
   my $comp_m = $2;
   my $comp_y = $3;

   local *DIR;
   opendir(DIR, $path)
   or die("Error: Unable to open directory $path: $!\n");

   my @filtered_listing;

   while (<DIR>) {
      next if /^\.+$/;

      my ($mtime_d, $mtime_m, $mtime_y) =
         (localtime( (stat "$path/$_")[9] ) )[3..5]; 

      next unless (
         $mtime_d == $comp_d &&
         $mtime_m == $comp_m &&
         $mtime_y == $comp_y
      );

      push(@filtered_listing, $_);
   }

   return sort @filtered_listing;
}