Use of uninitialized value in concatenation (.) or 
string at d:/Perl/site/lib/lz.pm line 190.

##</code><code>##

#my $outPath = $obj->{outpath}{absolut} . "-" . $obj->{sap}{jfExtNum};

my $outPath  = $obj->{outpath}{absolut}
               . 
               do {
                   defined  $obj->{sap}{jfExtNum} 
                   && "-" . $obj->{sap}{jfExtNum}
               };