use Win32::Process::Info;
$pi = Win32::Process::Info->new ();
$MyPID = $$;
@info = $pi->GetProcInfo ($$);