#fexe.pl
#--------
use Win32;
use Win32::OLE;
use OLE;

Win32::MsgBox ("\n Working first exe\n");
while(1){}

##</code><code>##

#sexe.pl
#--------
use Win32;
use Win32::OLE;
use OLE;

Win32::MsgBox ("\n Working second exe\n");
while(1){}

##</code><code>##

#exeExecute.pl
#--------------

@exe=('D:\\fexe.exe','D:\\sexe.exe');
  foreach my $exe (@exe){
    chdir "D:\\";
    system(1, "$exe"); # here 1 for don't wait for next line to execute
  }
print "over";