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