        system("mkdir $ttaexpect/org");
        system("mkdir $ttaexpect/new");
        opendir(DIR, $setupfiles);
            foreach $f (readdir(DIR)) {
               next if ( -d $f );
               if ( $f =~ /.exp$/ ) {
# If run this more than ones will overwrite expect org directory so use STTA org files instead !!!
#                 system ("cp $ttaexpect/$f $ttaexpect/org/$f ; chmod 755 $ttaexpect/org/$f"); 
                  system ("cp $setupfiles/org/$f $ttaexpect/org/$f ; chmod 755 $ttaexpect/org/$f");
                  system ("cp $setupfiles/$f $ttaexpect/$f ; chmod 755 $ttaexpect/$f"); 
                  system ("cp $setupfiles/$f $ttaexpect/new/$f ; chmod 755 $ttaexpect/new/$f"); 
                  print "<tr><td valign=top> $text{user_made} $f </td>\n";
               }
            } 
        closedir(DIR);
        print "<tr><td>".&text('expect_back',"$ttaexpect/org")."</td></tr>\n";
        print "<tr><td>".&text('expect_new',"$ttaexpect/new")."</td></tr>\n";
