use strict;
use threads;
use threads::shared;
use Win32::FileSecurity;
my @source: shared; 
my @childs;
my $child;
my @list;

$list[0]=qw(c:\\winnt);
$list[0]=qw(\\\\serverA\\g$\\Eng_Support\\Data_Removal);
$list[1]=qw(\\\\serverA\\f$\\homedirs\\users0\\adb0290);

for (@list)
{
	push @childs, threads->create("size_up","$_");#line 16
	#push @childs, threads->create("file_up","$_");#line 17
}
foreach $child (@childs)
{
   $child->join();
}

printf "%s ", join ("\n", @source);

sub size_up 
{
	my ($path) = @_;
	my $resp;
	$resp = `size_test.pl $path`;
	push (@source, "$path\t" . $resp);
}
sub file_up 
{
	my ($path) = @_;
	my $resp;
	$resp = `file_test.pl $path`;
	push (@source, "$path\t" . $resp);
}