use strict;
use CGI qw/:standard/;
my $ext = 'pl';
my $Indent = 15;
my $q = new CGI;

print $q->header;
print $q->start_html;
&GetDirs;
print $q->end_html;

sub
GetDirs
{
    my ($Dir, $Posn) = @_;
    chdir $Dir if $Dir;
    while (<*/>) {
        print "<div style=\"margin-left:$Posn\">$_</div>";
        &GetDirs($_, $Posn + $Indent);
    }
    while (<*.$ext>) {
        print "<div style=\"margin-left:$Posn\"><a href=\"editor.pl?Action=GetScript&File=$_\" target=\"$_\">$_</a><BR>";
    }
    chdir "../" if $Dir;
}