One way would be to use Image::Size and then calculate the X co-ordinate based on the width of the image.

Have a look at the source code of pod2pdf for a similar example (pod2pdf scales images to fit the page).

JJ
http://perl.jonallen.info :: http://perldoc.perl.org