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