Untested but the Image::Magick attribute that controls color depth, is "depth". Since it is per RGB component, a depth of 8 is 24 bit. So a line like

$image->Set(depth=>8);
[download]

should patch things up. (Hopefully)