use strict;
  use LWP::Simple;

  my $path  = "http://10.2.1.23/http-path/payload/10MB/";
  for (my $i=0;$i<200;$i++) {
	my $filename = "File-10M-".$i.".txt";
	my $url = $path.$filename;
    my $file = "D:\\kshare\\payload\\$filename";
	$thread = threads->new(\&httpcon, $url, $file);

  }
$thread->join;

sub httpcon {
	my $url = shift;
	my $file = shift;
	is_success(getstore($url, $file))
    or die "$!\n";
}