You can skip the step where you write the image to disk by calling something like:

my $pic = $image->ImageToBlob();
$r->send_http_header;
$r->print( $pic );
[download]

I use this all the time along with:

$image = new Image::Magick($image_type);
$image->BlobToImage($blob);
[download]

to get images in & out of the database.