Select Code to Download

#!/usr/bin/perl
 
...
my $new_file = "C:/Documents and Settings/user/desktop/newfile.log";

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