gistfile1.txt

my $sc = Scraper->new($url);

while (my $manu = $sc->next_manufacturer()){
  while (my $cat = $manu->next_category()) {
    while (my $prod = $cat->next_product()) {
      # woot
    }
  }
}