my $content = '';
my $buffer;
my $len = 65536;
open( my $fh, '<:raw', $file );

while ( read( $fh, $buffer, $len ) ) {
    $content .= $buffer;
}