I couldn't find one but I had most of this lying around , seems plain :) 
#!/usr/bin/perl --
use Path::Class;
use constant THISFILE => file( __FILE__ )->absolute->stringify;
use constant THISDIR  => file( THISFILE )->dir->stringify;
use strict;
use warnings;
use File::Find::Rule;
use Data::Dump qw/ dd pp /;
use POSIX();
use CGI();

# for hourly backups
our $today = POSIX::strftime('%Y-%m-%d-%H', localtime); 

Main( @ARGV );
exit( 0 );

sub Fudge {
    use Errno();
    join qq/\n/,
      "Error @_",
      map { "  $_" } int( $! ) . q/ / . $!,
      int( $^E ) . q/ / . $^E,
#~       grep( { $!{$_} } keys %! ),
      q/ /;
}


use List::MoreUtils 'uniq';
sub Main {
    @_ or die "Usage: $0 dir-to-make-indexes-beneath \n";
    my @dirs = uniq( map { dir( $_ )->absolute } find( directory => in
+ => \@_ ) ) ;
    
    for my $dir ( @dirs ){
        chdir $dir or die Fudge("chdir $dir");
        
        my $title = $dir->basename;
        
        if( -e 'index.html'){
            rename 'index.html', "index.html.$today.bak"
                or die Fudge(qq{ $dir / rename 'index.html', "index.ht
+ml.$today.bak" });
        }
        
        my $files = join ' ',
          '<tr>'. ( faFile("../", '../index.html') ).'</tr>',
          map  {
            '<tr>'.
            ( -f $_ ? faFile($_) : faFile("$_/", "$_/index.html") )
            .'</tr>'
          }
          grep { -e $_ } 
          grep { not /^index\.html(\.\d\d\d\d-\d\d-\d\d-\d\d\.bak)?$/ 
+}
          glob '*';;;
        
        open my($ih), '>', 'index.html' or die Fudge("$title/index.htm
+l");
        print $ih qq{<!doctype html><html>},
            qq{<title>@{[ CGI::escapeHTML( $title ) ]}</title><body>},
            qq{<!--@{[scalar localtime]}-->},
            qq{<table>$files</table></body></html>};
        close $ih;
    }
}

sub faFile {
    my $a = CGI::a({ -href => $_[1] // $_[0] }, $_[0] );
    my( $size, $modtime ) = (stat $_[0] )[ 7, 9 ];
    "<td>$size</td><td>$a</td><td>".gmtime($modtime).'</td>'
}

__END__
$ perl makeindex.html.pl dir-test-dir

$ gtree -f dir-test-dir
dir-test-dir
|-- dir-test-dir/Fort
|   |-- dir-test-dir/Fort/Knox.html
|   |-- dir-test-dir/Fort/index.html
|   |-- dir-test-dir/Fort/index.html.2013-05-17-12.bak
|   |-- dir-test-dir/Fort/index.html.2013-05-17-15.bak
|   |-- dir-test-dir/Fort/index.html.2013-05-17-16.bak
|-- dir-test-dir/Fort.html
|-- dir-test-dir/index.html
|-- dir-test-dir/index.html.2013-05-17-12.bak
|-- dir-test-dir/index.html.2013-05-17-15.bak
|-- dir-test-dir/index.html.2013-05-17-16.bak

[download]

In reply to Re^3: Better Indexing from Pod::Simple::HTMLBatch? by Anonymous Monk
in thread Better Indexing from Pod::Simple::HTMLBatch? by QM

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.