use File::Copy;
....

my $errorLog = "copyError.txt";
open STDERR, ">$errorLog" || die "Cant open $errorLog:\n$!";

#Show output to below file
my $information = "$copy.txt";
open(FH, ">$information") || die "Cant open $information:\n$!";
select(FH);

copy($fileOne,$fileTwo) ||  die "Did not copy: $!";

close(STDERR) ||  die "Cant close STDERR: $!";
close(FH) || die "Cant close File Handle: $!";