#!/usr/bin/perl -w
use strict;
use File::Temp qw(tempfile);
use Test::More tests => 2;

use_ok( 'IO::All' );

my ($fh,$filename) = tempfile();

my $binary = "foo\r\nbar";
binmode $fh;
print $fh $binary;
close $fh;

my $content = io($filename)->slurp;
is($binary, $content);