use Cwd;
        ..
        ..
        #Now process Config file<br>
        open(CFG_READ, "< txt52_mm.org") || die "Couldn't open tmp config command file for reading";
        open(CFG, "> txt52_mm.cfg") || die "Couldn't open config file for writing";
         ...
         ...
         ...
         
         ...
         ...
        open(ASM_READ, "< t52${fl}a.org") || die "Couldn't open tmp";
        open(ASM, "> t52${fl}a.asm") || die "Couldn't open file for writing ";


#######################################################

##</code><code>##

        use Cwd;
        $execdir = $ENV{EXECDIR};
        #Now process Config file
        open(CFG_READ, "< txt52_mm.org") || die "Couldn't open tmp config command file for reading";
open(CFG, "> $execdir/txt52_mm.cfg") || die "Couldn't open config file for writing";


...
         ...
         ...
         
         ...
         ...

        

        open(ASM_READ, "< t52${fl}a.org") || die "Couldn't open tmp";
        open(ASM, "> $execdir/t52${fl}a.asm") || die "Couldn't open file for writing ";