$subjectLine= Ihre Rechnung f0XC30XBCr transaktion ###transactionID###
$line= Mit freundlichen Gr0XC30XBCssen

##</code><code>##

$encValue=decode('UTF-8', $line);
$encValueSubject=decode('UTF-8', $subjectLine);

##</code><code>##

    use Mail::Sender;
        my $mfrom    = $mailFrom ;
        my $pdfmail = new Mail::Sender {from => $mfrom,smtp => 'localhost'};

    $pdfmail->MailFile({to         => $cemail,
                        subject    => $subjectLine,
                        msg        => $line."\n",
                        file       => $pdfout});


##</code><code>##

$subjectLine=P0XC50X990XC30XADstup k internetu Wi-Fi
$line = S p0XC50X990XC30XA1telskymi pozdravy,