my $raw = slurp_file( $file);

sub slurp_file {
    return do {
        local ( *ARGV, $/, $^I );
        use open qw' IN :bytes ';
        @ARGV = @_;
        <>;
    };
}