my $CONNECT = 0;
..
require Thread::Queue;
threads::shared::share($CONNECT);