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