sub PrintTextAngle {
	my ($texthandler, $x, $y, $rot, $text, $options) = @_;
	$texthandler->transform('-translate'=> [6/mm+$x/mm,10/mm+$y/mm], '-rotate'=>$rot);
	$texthandler->text($text, $options);
}

my $pdf_input = PDF::API2->open("$Filename");
foreach my $pagenr (1..$pdf_input->pages) {
	my $page = $pdf_input->openpage($pagenr);
	my $texthandler = $page->text;
	my $font = $pdf_input->corefont( 'Helvetica-Bold',    -encode => 'latin1' );
	$texthandler->fillcolor('grey');
	$texthandler->font($font, 256/pt);
	PrintTextAngle($texthandler, 50, 60, 45, "TEST");
	$texthandler->font($font, 56/pt);
	PrintTextAngle($texthandler, 20, 10, 0, "Do not throw away!");
}
$pdf_input->saveas("$Filename-TEST.pdf");