sub deleteTemp
{
  my ($delTemp)=@_[0];
  $cmddelTemp="DEL /Q $delTemp\n";
  system($cmddelTemp);
  my($serverlist)=@_[1];
  $cmdcopy="xcopy $serverlist $delTemp";
  system($cmdcopy);
}