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