use file::copy qw(copy);


 deleteTemp($tempfile,$serverlist);


sub deleteTemp

{


   my ($delTemp,$serverlist)=@_;

   unlink $deltemp;

   #copy($serverlist,$deltemp);   
   
   


}