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