use strict; use warnings;
use Win32::Process::Kill;
my $pids = $ARGV[0];

# Get *all* the handles returned
my @handles = GetHandle($pids);
print scalar(@handles), " handles returned\n";

# We'll just suspend the first one:
my $handle = $handles[0];
SuspendProcess($handle);