Starting with:

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

Here's my suggestions:

• my ($delTemp,$serverlist) = @_; #your code works, mine is prettier ;)
• Use unlink to delete the file in a single step instead of two.
• Use File::Copy to copy in a single step instead of two. It's a core module, you should already have it.
• Those two last suggestions make your code more portable.