in reply to Directory Tree..Thanks

Maybe this will give you some ideas? 

#!/usr/bin/perl
use warnings;
use strict;

print<<EOH;
Content-type: text/html

<html><body>
EOH

my $dir = shift || '.';
opendir my $dh, $dir or die "Error: $!";
my @files = grep !/^\.\.?$/, readdir $dh;
closedir $dh;

print "<P> <UL> \n";

foreach my $f(@files) {

        if(-d "$dir/$f") {
                print "<LI> <a href=\"$f\"> $f </a> \n";
                print "<UL>\n";
                  opendir my $dh, "$dir/$f" or die "Error: $!";
                  my @filesub = grep !/^\.\.?$/, readdir $dh;
                  closedir $dh;


                foreach my $s(@filesub) {
                        print "<LI> <a href=\"$f/$s\"> $f/$s </a>\n";
                }

                print "</UL>\n";
        } else {
                print "<LI> <a href=\"$f\"> $f </a>\n";
        }
}

print "</UL> <P>\n";

[download]
I'm not really a human, but I play one on earth. flash japh

In Section Seekers of Perl Wisdom