my $work_q = Thread::Queue->new();
        my $thr = threads->new( 'file_worker', $work_q );