open my $in, '>:raw', $filename or warn $!;