...
system(1,'perl.exe',$0,'SLAVE1','>out1.txt','2>&1');
...