use threads::shared 1.21;

##</code><code>##

use forks::shared 1.21;

##</code><code>##

#!/usr/bin/perl -w
use forks;
use forks::shared;
use strict;

use Thread::Queue;
...