use strict;
use warnings;
use DBI;
use Test::More;
use Config;

open(my $f, "<", "pm_994504.jpg") or die "$!";
binmode($f);
my $jpg = do {local $/ = <$f>};

my $h = DBI->connect;
$h->{RaiseError} = 1;
$h->{PrintError} = 0;
{
    diag("\n");
    diag("Perl $Config{PERL_REVISION}.$Config{PERL_VERSION}.$Config{PERL_SUBVERSION}\n");
    diag("osname=$Config{osname}, osvers=$Config{osvers}, archname=$Config{archname}\n");
    diag("Using DBI $DBI::VERSION\n");
    diag("Using DBD::ODBC $DBD::ODBC::VERSION\n");
    diag("Using DBMS_NAME " . DBI::neat($h->get_info(17)) . "\n");
    diag("Using DBMS_VER " . DBI::neat($h->get_info(18)) . "\n");
    my $driver_name = DBI::neat($h->get_info(6));
    diag("Using DRIVER_NAME $driver_name\n");
    diag("Using DRIVER_VER " . DBI::neat($h->get_info(7)) . "\n");
    diag("odbc_has_unicode " . $h->{odbc_has_unicode} . "\n");
}

eval {
    $h->do(q/drop table mje/);
};

$h->do(q/create table mje (a varbinary(max), b image)/);

my $s = $h->prepare(q/insert into mje values(?,?)/);
$s->execute($jpg, $jpg);

# you were using pack so here it is with pack as well
my $binary = pack("H*", $jpg);
$s->execute($binary, $binary);

$s = $h->prepare(q/select * from mje/);
$s->{LongReadLen} = 800_000;
$s->execute;
my $r = $s->fetchall_arrayref;

is($r->[0][0], $jpg, "jpeg in varbinary column");
is($r->[0][1], $jpg, "jpeg in image column");
is($r->[1][0], $binary, "packed jpeg in varbinary column");
is($r->[1][1], $binary, "packed jpeg in image column");
done_testing;