If you're going to post perl scripts that depend on a particular package being installed you should probably mention that at the start 
I would normally do that.. the original post for this script contained it, here.
This is basically an updated version of that script, with a coverart column, and commands for extracting coverart from one or multiple files.
Oh, and if I remember correctly these commands don't create 0 byte files when coverart doesn't exist.
For later I've made a HowTo for ActivePerl here
It's ok now, not very simple (please built in this request) but it's work...
I take it as you got the script to work. Nice.
I would also prefer it if there was some easy way to obtain the coverart binary data and related size/type/etc directly from
DOpus without having to resort to perl, python or whatever.
Alternatively, being able to (load)/save coverart (from)/to a file, and being able to get related size/type/etc for the coverart
through DO would also work.
For reference, HERE is the location of the updated script.
Some minor fixes compared to the script in this one.