open(IMG, "Sample.jpg") or die "Can't open file: $!";
binmode IMG;
binmode STDOUT;

while (read(IMG, $buff, 8 * 2 ** 10)) {
    print $buff;
}
close IMG;