使用Perl缩小PDF页面大小

Question

我在现有的Perl框架中处理PDF文件。某些传入文件的页面大小非常大。我想做什么：

1. 检查输入文件的页面大小是否大于特定格式f（A4 / Letter）
2. 如果大于f：将其缩小为f。

这是Unix中使用GhostScript的相应命令：

gs -sPAPERSIZE=a4 -dFIXEDMEDIA -dPSFitPage -o <outputFile> -sDEVICE=pdfwrite <inputFile>

有没有办法在Perl中执行此操作，即无需调用外部工具？ 我检查了模块PDF和CAM::PDF，但文档并没有真正涵盖我的问题，我无法找到直接的解决方案。