or download this
#setup the APi Call
$CreateProcess = new Win32::API("kernel32", "CreateProcess",['P','P','
+P','P', 'N','N', 'P','P','P','P'],'N');
$dwFlags 1|0x00000100;
...
my $processinfo = pack("LLLL",0,0,0,0);
#now attempt to pipe the call to a handle
open(CP,$CreateProcess->Call(0,"ipconfig",0,0,0,0x10,0,".",$si,$proces
+sinfo) |);