use Win32::Process;

Win32::Process::Create($perl,'c:\strawberry\perl\bin\perl.exe','perl.exe gui.pl',0,CREATE_NO_WINDOW,'.');