1
2
3
4
5
6
7
8

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

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

Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"