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

##</code><code>##

     my @headlines = $newslines->getHeadLineList();
     foreach my $h (@headlines) {
         print $h->getHeadLine(),"\n";
     }