#!/usr/bin/perl -w
use strict;
my $top_dir = $ARGV[0];
$top_dir .= '/' if($top_dir !~ /\/$/);
my $rel_path = $ARGV[1];
$rel_path .= '/' if($rel_path !~ /\/$/);
print "\n\nHTML Directory of $top_dir\n\n\n";
opendir(DIR, $top_dir);
my @directories = readdir(DIR);
for my $sub_dir (sort (@directories))
{
my $full_dir = $rel_path . $sub_dir;
next if $sub_dir =~ /^\.\.?$/;
print "$sub_dir
\n";
}
print "\n";