### ImageMagick version

6.9.10-23

### Operating system

Linux

### Operating system, version and so on

Ubuntu 20.04

### Description

(Also tested with ImageMagick-7.1.1-21)

The call 
`$im->Profile(profile=$blob)`

 does not work

### Steps to Reproduce

```perl
#!/usr/bin/perl
use strict;

use Image::Magick;
my $im=Image::Magick->new;
$im->Set(size=>"100x100");
$im->ReadImage("canvas:red");
my $icc=
"\0\0\2Dargl\2 \0\0mntrRGB XYZ \7\326\0\7\0\10\0\3\0\34\0/acspMSFT\0"
."\0\0\0none\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\366\326\0\1\0\0\0\0"
."\323-argl\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
."\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\12desc\0\0\0\374\0\0\0{cpr"
."t\0\0\1x\0\0\0005wtpt\0\0\1\260\0\0\0\24bkpt\0\0\1\304\0\0\0\24rX"
."YZ\0\0\1\330\0\0\0\24gXYZ\0\0\1\354\0\0\0\24bXYZ\0\0\2\0\0\0\0\24"
."rTRC\0\0\2\24\0\0\0\16gTRC\0\0\2\44\0\0\0\16bTRC\0\0\0024\0\0\0\16"
."desc\0\0\0\0\0\0\0!Compatible with Adobe RGB (1998)\0\0\0\0\0\0\0"
."\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
."\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
."\0\0\0\0\0\0\0text\0\0\0\0Public Domain. No Warranty, Use at own "
."risk.\0\0\0\0XYZ \0\0\0\0\0\0\363Q\0\1\0\0\0\1\26\314XYZ \0\0\0\0"
."\0\0\0\0\0\0\0\0\0\0\0\0XYZ \0\0\0\0\0\0\234\30\0\0O\245\0\0\4\374"
."XYZ \0\0\0\0\0\0004\215\0\0\240,\0\0\17\225XYZ \0\0\0\0\0\0&1\0\0"
."\20/\0\0\276\234curv\0\0\0\0\0\0\0\1\0023\0\0curv\0\0\0\0\0\0\0\1"
."\0023\0\0curv\0\0\0\0\0\0\0\1\0023\0\0";
$im->Profile(profile=>$icc);
$im->Write("asdf.jpg");
```

### Images

_No response_
PerlMagick: $im->Profile(profile=>$blob) does not work.
This is a GitHub Issue
repo:ImageMagick
owner:ImageMagick
Title : PerlMagick: $im->Profile(profile=>$blob) does not work.
Issue date:

--- start body ---
### ImageMagick version

6.9.10-23

### Operating system

Linux

### Operating system, version and so on

Ubuntu 20.04

### Description

(Also tested with ImageMagick-7.1.1-21)

The call 
`$im->Profile(profile=$blob)`

 does not work

### Steps to Reproduce

```perl
#!/usr/bin/perl
use strict;

use Image::Magick;
my $im=Image::Magick->new;
$im->Set(size=>"100x100");
$im->ReadImage("canvas:red");
my $icc=
"\0\0\2Dargl\2 \0\0mntrRGB XYZ \7\326\0\7\0\10\0\3\0\34\0/acspMSFT\0"
."\0\0\0none\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\366\326\0\1\0\0\0\0"
."\323-argl\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
."\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\12desc\0\0\0\374\0\0\0{cpr"
."t\0\0\1x\0\0\0005wtpt\0\0\1\260\0\0\0\24bkpt\0\0\1\304\0\0\0\24rX"
."YZ\0\0\1\330\0\0\0\24gXYZ\0\0\1\354\0\0\0\24bXYZ\0\0\2\0\0\0\0\24"
."rTRC\0\0\2\24\0\0\0\16gTRC\0\0\2\44\0\0\0\16bTRC\0\0\0024\0\0\0\16"
."desc\0\0\0\0\0\0\0!Compatible with Adobe RGB (1998)\0\0\0\0\0\0\0"
."\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
."\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
."\0\0\0\0\0\0\0text\0\0\0\0Public Domain. No Warranty, Use at own "
."risk.\0\0\0\0XYZ \0\0\0\0\0\0\363Q\0\1\0\0\0\1\26\314XYZ \0\0\0\0"
."\0\0\0\0\0\0\0\0\0\0\0\0XYZ \0\0\0\0\0\0\234\30\0\0O\245\0\0\4\374"
."XYZ \0\0\0\0\0\0004\215\0\0\240,\0\0\17\225XYZ \0\0\0\0\0\0&1\0\0"
."\20/\0\0\276\234curv\0\0\0\0\0\0\0\1\0023\0\0curv\0\0\0\0\0\0\0\1"
."\0023\0\0curv\0\0\0\0\0\0\0\1\0023\0\0";
$im->Profile(profile=>$icc);
$im->Write("asdf.jpg");
```

### Images

_No response_
--- end body ---
