#!/usr/bin/perl
use strict;
use warnings;
no warnings "uninitialized";
use Parallel::Fork::BossWorker

my $data = "a";


my $fork_sub1 = Parallel::Fork::BossWorker->new(work_handler => \&sub1);
my $fork_sub2 = Parallel::Fork::BossWorker->new(work_handler => \&sub2);
my $fork_sub3 = Parallel::Fork::BossWorker->new(work_handler => \&sub3);
my $fork_sub4 = Parallel::Fork::BossWorker->new(work_handler => \&sub4);
my $fork_sub5 = Parallel::Fork::BossWorker->new(work_handler => \&sub5);
my $fork_sub6 = Parallel::Fork::BossWorker->new(work_handler => \&sub6);

$fork_sub1->add_work({data => "a"});
$fork_sub2->add_work({data => "a"});
$fork_sub3->add_work({data => "a"});
$fork_sub4->add_work({data => "a"});
$fork_sub5->add_work({data => "a"});
$fork_sub6->add_work({data => "a"});

$fork_sub1->process();
$fork_sub2->process();
$fork_sub3->process();
$fork_sub4->process();
$fork_sub5->process();
$fork_sub6->process();




sub sub1 {

my $variable = shift @_; 
print "sub 1\n";

return(0);
}

sub sub2 {

my $variable = shift @_; 
print "sub 2\n";

return(0);
}
sub sub3 {

my $variable = shift @_; 
print "sub 3\n";

return(0);
}
sub sub4 {

my $variable = shift @_; 
print "sub 4\n";

return(0);
}
sub sub5 {

my $variable = shift @_; 
print "sub 5\n";

return(0);
}
sub sub6 {

my $variable = shift @_; 
print "sub 6\n";

return(0);
}