#!/usr/bin/perl

use strict;
use warnings;

$|=1;
print "$_\n" and select(undef,undef,undef,0.1) for 1 .. 1000;

##</code><code>##

#!/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,
                       "C:\\Perl\\bin\\perl.exe",
                       "perl counter.pl",                       
                       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);

##</code><code>##

#!/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);