use strict;           # of course
   use File::Basename;   # limit the output names
   use File::stat;       # file size/date
   use File::Find;       # only in `pwd`
   use Cwd;              # lint and untaint `pwd` 

   my ($root) = getcwd =~ /(.*)/;

   my $total;

   find( {
       untaint_pattern=>'.*',
       no_chdir => 1,
       wanted => sub {
           return unless /foo-.*\z/;

           my $v_snap_file   = $File::Find::name;
           my $basefile      = basename($v_snap_file);
           my $count = 
              `/bin/grep $basefile \
              /var/log/squid/access.log | /usr/bin/wc -l`;
           $count =~ s/^\s+//g;

           my $v_sb          = stat("$v_snap_file");
           my $v_filesize    = $v_sb->size;
           my $v_bprecise    = sprintf "%.0f",
                               ($v_filesize);
           my $v_bsize       = insert_commas($v_bprecise);
           my $v_kprecise    = sprintf "%.0f",
                               ($v_filesize/1024);
           my $v_ksize       = insert_commas($v_kprecise);
           my $v_filedate    = scalar 
                               localtime $v_sb->mtime;
           my $basename_v    = basename($v_snap_file);


           print "File Name...: $basename_v\n";
           print "File Size...: $v_bsize bytes 
                                ($v_ksize kb)\n";
           print "Downloads...: ", insert_commas($count);

           my $tbytes        = $v_filesize * $count;
           print "Total bytes.: ", 
                  insert_commas($tbytes), "\n\n";

           $total += $tbytes;
       }
   }, $root);
   print "Final total bytes: ", 
          insert_commas($total), "\n\n";

   sub insert_commas {   
           my $text = reverse $_[0];
           $text =~ s/(\d{3})(?=\d)(?!\d*\.)/$1,/g;
           return scalar reverse $text;
   }