Show us your current copy code. On the face of it you should just need something like:

open my $tmpIn, '<', $temp or die "Failed to open $temp: $!\n";
open my $logOut, '>>', $log or die "Failed to open $log: $!\n";

print {$logOut} <$tmpIn>;
[download]