如何用Perl将目录中的文件发送到打印机？

好吧，下面是我想做的：

我有一封带有一系列MIME附件的电子邮件。我有示例代码，可以帮助我创建一个包含解码附件的目录；我现在需要做的是将该目录的内容发送到lpr。（我没有筛选出不好的文件格式；我将由后台处理程序守护进程来处理。）

如何使用：

您可以使

glob

参数更具选择性。因此，编写的函数避免启动shell，并直接运行

lpr

命令

my @files = glob($decode_directory/*);
system "lpr", @files;