require "vars.pm";

    open(NEWFILEXQ,">>13x.txt") || die $!;
     print NEWFILEXQ A->main_html_dir(),;
    close(NEWFILEXQ);