use File::Copy;
move '/path/newsite2.txt', '/path/newsite3.txt'; #just in case
move '/path/newsite1.txt', '/path/newsite2.txt'; #Back up
#create newsite1.txt