#! perl -slw
use strict;

##</code><code>##

use threads;
use threads::shared;
use Data::Dump qw[ pp ];
use List::Util qw[ min max sum reduce ];
use LWP::Simple;
use XML::Simple;
use GD;