my @data
open(my $fh, '<:raw', 'test.txt') or die("ERROR OPEN test.txt ($!)\n");
my $block;
while(read($fh,$block,1024)) {
  push(@data,$block);
}
close($fh);