TRex::Common::FileCopy is text only
Brought to you by:
bit-man
binmode must be used, as described:
open (FILEREAD, $FileRead );
binmode( FILEREAD );
@Data = <FILEREAD>;
close FILEREAD;
open ( FILEWRITE, "> $FileWrite" );
binmode( FILEWRITE );
print FILEWRITE join( '', @Data);
close FILEWRITE;
return;
Anonymous