#!/usr/bin/perl

use File::Copy;

my $original_file = '//serv123/logs/log1.txt';
my $new_file = "C:/Documents and Settings/user/desktop/newfile.log";