use strict;
use warnings;

use Win32::Process::Info;
use Data::Dumper;
    
my $pi = Win32::Process::Info->new ("172.16.4.47", "WMI");

my @pi = $pi->ListPids ();    # Get all known PIDs

print Dumper $pi->GetProcInfo ($_) for @pi; #Get the info