#!/usr/bin/perl

use File::Copy;

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

copy($original_file, $new_file) or die "Error: $!";