Select Code to Download

#!/usr/bin/perl
use warnings;
...
         print "saved\n";
         
    }

#!/usr/bin/perl
use warnings;
...
$pdf->saveas("$0.pdf");
$pdf->end;
exit;