Select Code to Download

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

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