use MTD;
use strict;
use warnings;

use threads;
use threads::shared;
use Thread::Semaphore;

main();
sub main{
	my $directory = q#F:/#;
	my	$limit = 4;
	my $queueobjectref = undef;
	my %fvar :shared;
	my @ar :shared;
	%fvar = (
		t_sem => Thread::Semaphore->new(),
		array => \@ar,
	);
		
	MTD::weave_dir($directory,$limit,$queueobjectref,\&push_fname,\%fvar);
	sleep(1);
	foreach my $i (@{$fvar{array}}){
		print("$i\n");
	}
}

sub push_fname{
	my($filename,$var) = @_;
	$$var{t_sem}->down();	
	push(@{$$var{array}}, $$filename); # reference to an array within a hash reference as an array
	$$var{t_sem}->up();	
}