use Gtk2 '-init';
use Image::Magick;

my $magick = Image::Magick->new;
$magick->Read('pictures/ian.jpg');
$magick->Set(magick=>'xpm');
my $blob = $magick->ImageToBlob();
$pixbuf = Gtk2::Gdk::Pixbuf->new_from_xpm_data ($blob);

i get this error: 
GdkPixbuf-WARNING **: Inline XPM data is broken: Invalid XPM header at tk-photo.pl line 9.