my $i = Image::Magick-> new( magick => 'svg' );
    $i-> BlobToImage( do { undef $/; <DATA> } );
    $i-> Write( 'junk.png' );  # to test