Apple has an interesting video tip up this week on reducing the file size of graphic intensive PDFs created from the Print dialog. In their example they make a PDF from a Keynote presentation ...

use SWISH::Filter; # load available filters into memory my $filter = SWISH::Filter->new; # convert a document my $doc = $filter->convert( document => \$scalar_ref ...