[Perl] Funcion para mostrar procesos

HOla aca les traigo una funcion que les mostrara los
procesos en su computadora

1 2 3 4 5 6 7 8 9 10 11 12 13 14

use Win32::OLE qw(in); sub getprocess { my %procesos; my $uno = Win32::OLE->new("WbemScripting.SWbemLocator"); my $dos = $uno->ConnectServer("","root\\cimv2"); foreach my $pro (in $dos->InstancesOf("Win32_Process")){ $procesos{$pro->{Caption}} = $pro->{ProcessId}; } return %procesos; }

Ejemplo de uso

1 2 3 4 5 6

my %vida = getprocess(); for my $data(keys %vida) { print "[Proceso] : ".$data."\n"; print "[PID] : ".$vida{$data}."\n\n"; }