#! perl -slw
use strict;
use threads;
use threads::shared;

## just six more short lines needed here