my $x = $image->Write(filename=>$file,compression=>'JPEG',quality=>'10
+');
warn "$x" if "$x";
$x =~ /(\d+)/;
print "ERROR: [$1]\n";
[download]

You can get the error codes (as well as the above error example) here:

http://www.imagemagick.org/www/perl.html

This might be useful too, as you're using Win2K:

http://www.dylanbeattie.net/magick/

-beernuts