How do you write binary data with Perl