# $binarydata is binary data, $id is a ASCII-only number, $command is ASCII-only string.
# so result of concatenation should be binary data
my $line = "$id\t$command\t$datalength\t$binarydata";
syswrite $file, $line ...

##</code><code>##

my ($id, $filename) = split (/\t/, $record);