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