#!/usr/bin/perl use strict; use Data::Dumper; use File::Find; my $path = shift() or die('Need a path'); my $output = shift() or die('Need output directory'); my @pparts = split(/\//, $path); my @files; find({ wanted => \&wanted, no_chdir => 1 }, $path); unless(-e $output) { system("mkdir -p $output"); } open(INDEX, ">$output/index.html"); print INDEX qq{

\n\n\n"; close(INDEX); sub wanted { if($_ =~ /\.(pm|pod)$/) { push(@files, $_); } }