my ($location) = @_;
    print "\n".'Calculating Scan Statistics...'."\n";
 
    my $size =0;
	$size= `du -sk @_`;
	print "$size";