find( {
    untaint_pattern=>'.*',
    no_chdir => 1,
    preprocess => sub {sort @_},
    wanted => sub {
        return unless /\.(prc|pdb)\z/;

        my $v_snap_file   = $File::Find::name;
        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    = strftime "%D %r", localtime $v_sb->mtime;

        my $basename_v    = basename($v_snap_file);

        print $cgi->blockquote(
              $cgi->a({-href=>"snapshots/$basename_v"},
                    "$basename_v"),
             $cgi->br(), 
                "File size: $v_bsize bytes ($v_ksize kb)",
             $cgi->br(), 
                "File date: $v_filedate", $cgi->br());
        print "\n";
    }
}, $root);

##</code><code>##

   Chinese   [<a href="foo_zh_CN.txt">txt</a>]
             Size: 6,016 bytes

   Deutsch   [<a href="foo_de.txt">txt</a>]
             Size: 277,175 bytes