#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 $si = pack("LLLLLLLLLLLL SS LLLL",68,0,0,0,0,0,0,0,0,0,0,$dwFlags,0,0,0,-1,-1,-1);
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,$processinfo) |);