[magick-users] flatten PSD files and save as tif in perl

[Jeff Pflueger]

Hi. I have a huge number of layered PSD files and a perl script to go 
through them and save them all as TIFs using image::magick
Two questions:
1) The intial PSD files are about 100 megs, and the final TIFS are 260 
megs...this is because of something that the TIF file format is doing 
with the PSD layers. If I flatten the PSD's first in photoshop I don't 
have this problem. What is happening here?

2) Anyway to flatten a psd using image::magick before saving as a TIF? 
Right now I am simply doing:

my $image = new Image::Magick;

my $x = $image->Read("image.psd");
                warn "$x" if "$x";


$x = $image->Write("image.tif");
                warn "$x" if "$x";

How do I squeek in a 'flatten' along the way?

Thanks!
Jeff