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 'vugen' in name.
#print $info;
#print $pi;

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