use File::Slurp qw(read_file);
my $lob = read_file 'data.txt', { binmode => ':raw' };