Come on, let me save your precious time and get you started...

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

## just six more short lines needed here
[download]