if (my $newslines = $newscomp->getNewsLines) {
     print " Headlines:\n";
     my $headcount = $newslines->getHeadLineCount();
     for my $i (0..$headcount-1) {
         print $newslines->getHeadLine($i),"\n";
     }
}