#!/usr/bin/perl

use strict;
use warnings;

use Win32::Process;
use Win32;

sub ErrorReport
{
    print Win32::FormatMessage( Win32::GetLastError() );
}

my $ProcessObj;
Win32::Process::Create($ProcessObj,
                       ".\\counter.exe",
                       "counter",
                       1,
                       CREATE_NEW_PROCESS_GROUP,
                       ".")|| die ErrorReport();

$ProcessObj->Suspend();
sleep(1);
$ProcessObj->Resume();
sleep(1);
$ProcessObj->Suspend();
sleep(1);
$ProcessObj->Resume();
sleep(3);
$ProcessObj->Kill(0);