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