local $/ = \2048;
open(my $fh, '<', $path) or die "Failed to open $path: $!";
binmode($fh);
binmode(STDOUT);
print while <$fh>;