use strict;
use Win32::PerfLib;

my $h='hostname';
my %tasks=get_remote_process_list($h);

foreach my $key(keys %tasks){
	print "$key\t$tasks{$key}\n";
}