dynamisch erstelle PDFs als Mailanhang senden

[dobra]

Hallo,

ich möchte dynamisch erstellt PDFs (Rechnungen) als Mailanhang versenden.

Mit irgendwo gespeicherten Dateien funktioniert das mit MIME::Lite

   use MIME::Lite ;  
      my $prog = ssp::get_mailprog(); # Pfad zum Mailprogramm  
      open(MAIL,"|$prog -t");  
      my $msg = new MIME::Lite ;  
         my $to = "mail\@domain.com" ;  
         my $path = <Pfad zur Datei aus DB>;  
  
   $msg = build MIME::Lite  
         From    => $from ,  
         To      => $to ,  
         Subject => $subject ,  
         Type    => 'TEXT',  
         Data    => $mailtext ;  
      attach $msg  
         Type     => "AUTO" ,  
         Path     => $path,  
         Encoding => "base64",  
         Filename => $datei ;  
  
   $msg->print(\*MAIL) ;  
   close(MAIL) ;

Dynamische PDFs erstellen *und speichern* hab ich auch geschafft.

use strict;  
use warnings;  
  
my $testtext = "irgendwas das aus Formular oder DB ausgelesen wird";  
  
  use PDF::API2;  
  use PDF::TextBlock;  
  
  my $pdf = PDF::API2->new;  
  my $tb  = PDF::TextBlock->new({  
     pdf       => $pdf,  
     fonts     => {  
        b => PDF::TextBlock::Font->new({  
           pdf  => $pdf,  
           font => $pdf->corefont( 'Helvetica-Bold',    -encoding => 'latin1' ),  
        }),  
     },  
  });  
  $tb->text(  
     "statische Kopfzeite.\n\n" .  
     "dynamischer Text:\n " .  
     "$testtext\n\n " .  
     "statische Fußzeile."  
  );  
  $tb->apply;  
  $pdf->saveas('test.pdf');  
  $pdf->end;

aber wie stelle ich es an, dass die Datei nicht gespeichert sondern als Mailanhang versendet wird?

Google hat mir da leider nicht weiter geholfen...

lg
dobra