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