Select Code to Download

#!/usr/bin/env perl

...

$page->object($canine_triptych, 100, 650, 400);
$pdf->save($pdf_file);