#!/usr/bin/perl

use strict;
use WWW::Mechanize;
use FindBin qw($Bin);
use Thread::Queue;
use HTML::TreeBuilder::XPath;
my @threads =
  map { threads->create( \&create_thread, $_ ) }
  ( 1 .. $config->{NUMBER_OF_THREADS} );