note
sh1tn
If the source file is small you can use [cpan://File::Slurp]
<br /><br />
<c>use File::Slurp;
my $file_src = shift;
my $file_dst = shift;
write_file($file_dst, {'binmode' => ':raw'}, read_file($file_src, {'binmode' => ':raw'}));
</c>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig-416961"><div class="pmsig"><div>
<br><br>
</div></div></div>
653509
653509