DeclareProclet.pl

use strict;
use warnings;
use Proclet::Declare;

service(
    'w1',
    $^X,
    '-e',
    'for(1..100){ open(my $fh, ">>:unix", $ENV{PROCLET_TESTFILE}) or die $!; print $fh "w1 $$\n"; close $fh; sleep 1}'
);

service(
    'w2',
    $^X,
    '-e',
    'for(1..100){ open(my $fh, ">>:unix", $ENV{PROCLET_TESTFILE}) or die $!; print $fh "w2 $$\n"; close $fh; sleep 1}'
);

scheduled(
    'c1',
    '* * * * *',
    $^X,
    '-e',
    'sleep 1;'
);


worker(
    'w2' => 2
);

run;