# some code here....

for (0 ..3))
{
    my $thr = threads->create (
                sub {
                   worker();
                    }
                 )->detach();
}

# Master Thread
while (1)
{
    master();
}

sub master
{
    while (1)
    {
      #check if workers are alive
      #enqueue work
      # ....
    }
}

sub worker
{
    while (1)
    {
      #dequeue work
      # ....
    }
}

##</code><code>##

my @threads = threads->list();