make test
PERL_DL_NONLAZY=1 /usr/bin/perl "-Iblib/lib" "-Iblib/arch" test.pl
1..6
ok 1
ok 2
ok 3
ok 4
ok 5
ok 6

perl -MPDF::Reuse -e 'print'
Can't locate PDF/Reuse.pm in @INC (@INC contains: /usr/lib/perl5/5.8.0/i586-linux-thread-multi /usr/lib/perl5/5.8.0 /usr/lib/perl5/site_perl/5.8.0/i586-linux-thread-multi /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl .).
BEGIN failed--compilation aborted.

make install

#!/usr/bin/perl -w

use strict;
use CGI::Carp 'fatalsToBrowser';
use Time::HiRes qw(gettimeofday tv_interval usleep);
use PDF::Reuse;

my $stoppuhr = [gettimeofday];

print "Content-type: text/html\n\n";
print "Ich schreibe eine PDF-Rechnung!<br>";

# Vorlage laden
prFile('../customercare/rechnungen/neu.pdf');

# Zielfile bestimmen
prForm( { file  => 'rechungstemplate.pdf',
    first => 1, 
    last  => 1 });

my $abs = "knoefler.com, Tiroler Str. 101, 60385 Frankfurt\n";
my @adressfeld = ('erfolgreiche-firma.de',
          'z.H. Name Nachname',
          'Kundenweg 1',
          '60325 Frankofurto');
my $betreff = "Rechnung zweites Halbjahr 2004";
my $rechnungsnummer = "Rechnungsnummer: 100020042";
my $datum = "19.12.2004";

my @gruss = ("Wir bedanken uns für Ihren Auftrag.",
      "Bitte überweisen Sie den zu zahlenden Betrag innerhalb von 10 Tagen.",
      "Diese Rechnung wurde automatisch erstellt und ist auch ohne Unterschrift gültig."
      );
      
### ADRESSEFELD ###
my $xabstand = 60;
my $yabstand = 680;
my $textsize = 10;
#------------------
my $zeilenabstand = 3;
prFontSize($textsize-4);
prText($xabstand, $yabstand, $abs);
$yabstand -= $zeilenabstand*3;
prFontSize($textsize);
my $cnt=1;
foreach my $zeile (@adressfeld){
    my $y =$yabstand - ($textsize+$zeilenabstand)*$cnt;
    print "schreibe Adresse '$zeile' mit x:$xabstand y:$y <br>\n";
    prText($xabstand , $y, $zeile);
    $cnt++;
}

### BETREFF ###
prFontSize($textsize);
prText($xabstand, 555, $betreff);

###  R-NUMMER  ###
prFontSize($textsize);
prText($xabstand, 490, $rechnungsnummer);

###  DATUM  ###
prFontSize($textsize);
prText(420, 480, $datum);

###    GRUSS    ###
$xabstand = 60;
$yabstand = 200;
$textsize = 10;
$zeilenabstand = 3;
#------------------
prFontSize($textsize);
$cnt=1;
foreach my $zeile (@gruss){
    my $y =$yabstand - ($textsize+$zeilenabstand)*$cnt;
    print "schreibe Gruss '$zeile' mit x:$xabstand y:$y <br>\n";
    prText($xabstand , $y, $zeile);
    $cnt++;
}

my $prozesszeit = tv_interval($stoppuhr, [gettimeofday]);
print "Der Spass dauerte ".$prozesszeit."Sekunden<br>\n";


prEnd();
exit(1);

         my $string = "q\n";         # save graphic state
         $string   .= "4 w\n";       # make line width 4 pixels
         $string   .= "10 600 m\n";  # move to x=10 y=600, starts a new subpath
         $string   .= "40 600 l\n";  # a line to x=40 y=600 ( a horizontal line)
         $string   .= "10 580 m\n";   
         $string   .= "40 580 l\n";   
         $string   .= "10 510 m\n";   
         $string   .= "40 510 l\n";
         $string   .= "s\n";         # close the path and stroke
         $string   .= "Q\n";         # restore graphic state
         prAdd($string);             # the string is added to the content stream