@files =<C:\\orant\\FORMS60\\forms\\Fapidk\\source\\msvc\\changecolor\\Debug\\forms\\*.fmb>; 
foreach $file (@files) {
  print $file "\n";
  system "changecolor.exe form=$file";
  }

##</code><code>##

@files1 =<C:\\orant\\FORMS60\\forms_up\\*.fmb>; 
done and thanks for all of ur help.


foreach $file (@files1) {
  print $file . "\n";
 system "IFCMP60 USERID=rmetts/rmetts\@dlegtst1 module=$file module_access=file module_type=form"
 # print "c:\\orant\\bin\\IFCMP60 USERID=rmetts/rmetts\@dlegtst1 module=$file module_access=file module_type=form"
}