my $buf  = " " x 40;
my $read = " " x 10;
my $addr = "0";
my $len  = length $buf;

if( $readmem->Call($handle, $addr, $buf, $len, $read) ) {
    print "The read worked I guess($read): $!\n\t", unpack("H*", $buf), "\n";
    
} else {
    print "The read failed I guess($read): $!\n\t", unpack("H*", $buf), "\n";
}