Try this script, which is part of CAM::PDF.