Select Code to Download

sub PrintTextAngle {
    my ($texthandler, $x, $y, $rot, $text, $options) = @_;
...
    PrintTextAngle($texthandler, 20, 10, 0, "Do not throw away!");
}
$pdf_input->saveas("$Filename-TEST.pdf");

my $EGOverprint = $pdf->egstate();
my $EGNormal = $pdf->egstate();
$EGOverprint->strokeoverprint(1);
$EGNormal->strokeoverprint(0);

$text->egstate($EGOverprint);

$text->egstate($EGNormal);