package A;

{
    my $vars = {
        main_html_dir => '/home/x/public_html/13X',
        script_url => 'http://www.13/cgi-bin/13X/NEW/13x.cgi',
        html_dir  => 'http://www.13/13X',
        script_dir =>  '/home/x/public_html/cgi-bin/13X/',
        ext => 'html',
    };

    sub main_html_dir { return $vars->{main_html_dir}; }
    sub script_url { return $vars->{script_url}; }
    sub html_dir { return $vars->{html_dir}; }
    sub script_dir { return $vars->{script_dir}; }
    sub ext { return $vars->{ext}; }
}



##</code><code>##

require "vars.pm";

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


##</code><code>##

 my $vars = {
        main_html_dir => '/home/x/public_html/13X',
        script_url => 'http://www.13/cgi-bin/13X/NEW/x.cgi',
        html_dir  => 'http://www.13/13X',
        script_dir =>  '/home/x/public_html/cgi-bin/NEW',
 };