use strict;
use warnings;

my $fh;
open ($fh, "<:utf8", "schema.jpg");
my $img = '';
while (<$fh>) {
    $img .= $_;
}