#!/usr/bin/perl

$out = "test\xb0 test";
open(O, ">test.txt") or die "$!";
binmode O;
print O $out;
close O;

$s = -s "test.txt";
print "wrote ".length($out)." bytes to test.txt; file size is $s bytes\n";