#!/usr/bin/perl --
use strict; use warnings;
use threads stack_size => 4096;
use Thread::Queue;
Main( @ARGV );
exit( 0 );
sub Main {
    my $q        = Threads::Queue->new;
    ...
}
sub Worker {
    require Text::CSV_XS;
    require SOAP::Lite;
    require XML::Twig;
    require Config::IniFiles;
    require Tie::File;
    ...
}