#!/usr/bin/perl

use strict;
use PDF::Report;
use XML::DOM;



my $pdf = new PDF::Report(
                          PageSize => 'a4',
                          PageOrientation => 'portrait'
                         );



my $parser = new XML::DOM::Parser;
my $doc = $parser->parsefile ("test.xml");

$pdf->newpage(1);
my $nodes = $doc->getElementsByTagName ("preis");

my $n = $nodes->getLength;

for (my $i = 0; $i < $n; $i++)
  {
      my $node = $nodes->item($i);
      my $text = $node->getAttributeNode ("text")->getValue;

      $pdf->setSize(30);
      $pdf->setFont('Helvetica-bold');
      $pdf->setAddTextPos(107,85);
      $pdf->setAlign("center");
      $pdf->addText($text.chr(0x80),
            undef,
            undef);

  }

open(PDF, "> $0.pdf") or die "Error opening $0.pdf: $!\n";
print PDF $pdf->Finish();
close(PDF);


exit(0);