Select Code to Download

#!/usr/bin/perl -w

...

# finish the pdf
    $pdf->close;

#!/usr/bin/perl -w

...
foreach my $gettext(@newtext) {
    print "$gettext\n";
}