use strict;                      # always use 'strictures' 
use warnings;

use File::Copy qw/ copy /;       # perl module names are case sensitive

my $tempfile = "tempfile.txt";
my $serverlist = "serverlist.txt";

deleteTemp($tempfile, $serverlist);

sub deleteTemp
{
      my ($delTemp, $serverlist) = @_;
      print  "temp: $delTemp\n";
      print  "serv: $serverlist\n";

      unlink $delTemp;      
      copy($serverlist,$delTemp);   
}