$NSRHOLD="c:/temp/hold/";
@files=List_Hold();
$MAXCNT=15;

for ($x=0; $x < scalar(@files); $x++ ) {
   $file=@files[$x];
   chomp $file;
   $cmd="clone -F $file ";
   print "Launching Command is: $cmd\n";
   system($cmd);
}

sub List_Hold {
	my $dir = "$NSRHOLD" . "*";
	my @files = <"$dir">;
	return @files;
}