use strict;
use warnings;
use CAM::PDF;
    
my $pdf = CAM::PDF->new('C:\Dokumente und Einstellungen\user\Desktop\stat_geldmarkts.pdf');
 
my $page1 = $pdf->getPageText(1);
my @a = split "\n", $page1;
print $a[$#a];