Select Code to Download

#!/usr/bin/env perl

...
}

$pdf->save('DXout2.pdf');

$ ls -al
...
...
-rw-r--r-- 1 ken None  3277 Mar 25 09:42 DXout.pdf
-rw-r--r-- 1 ken None  5525 Mar 25 10:46 DXout2.pdf
...