use Win32::Process::Info;
use Data::Dumper;
 $pi = Win32::Process::Info->new ();
 $pi->Set (elapsed_in_seconds => 0);    # In clunks, not seconds.
 @pids = $pi->ListPids ();      # Get all known PIDs
 @info = $pi->GetProcInfo ();   # Get the max
 %subs = $pi->Subprocesses ();  # Figure out subprocess relationships.
 @info = grep {$_->{Name} =~ m/vugen/}
    $pi->GetProcInfo ();        # All processes with 'perl' in name.
#print $info;
#print $pi;

my $href=\%subs;
print Dumper $href;
print Dumper @info;
#print Dumper @pids;

##</code><code>##

 use Win32::Process;
    use Win32;

    sub ErrorReport{
        print Win32::FormatMessage( Win32::GetLastError() );
    }

   
 Win32::Process::Open($Obj,$pid=12732,$iflags)|| die ErrorReport();
         print "connected to process $pid ";

       
    $Obj->GetExitCode($exitcode);
	print  $exitcode; 

##</code><code>##

use Win32::Process;
    use Win32;

    sub ErrorReport{
        print Win32::FormatMessage( Win32::GetLastError() );
    }

    Win32::Process::Create($ProcessObj,
                                "C:\\program files\\Mercury\\LoadRunner\\bin\\vugen.exe",
                                "E:\\Mibor_timingtest\\Mibor\\mibor.usr",
                                0,
                                NORMAL_PRIORITY_CLASS,
                                ".")|| die ErrorReport();

 Win32::Process::Open($Obj,$pid=11672,$iflags)|| die ErrorReport();


    $ProcessObj->Suspend();
    $ProcessObj->Resume();
    $ProcessObj->Wait(INFINITE);

##</code><code>##

use Win32::Process;
    use Win32;

    sub ErrorReport{
        print Win32::FormatMessage( Win32::GetLastError() );
    }

   
 Win32::Process::Open($Obj,$pid=11672,$iflags)|| die ErrorReport();
         print "connected to process $pid";

    #$ProcessObj->Suspend();
    #$ProcessObj->Resume();
    #$ProcessObj->Wait(INFINITE);
     
    $Obj->GetExitCode($exitcode);
	print $exitcode;