open my $h,'>:raw','output.bin';
print $h "\x00\x42\xAF\x99";
doSomething();
print $h "\x33\xFF\x81\x73";
close $h;