foreach my $area (Areas->retrieve_all()) {
  my $stats = $area->stats(month => 8);
  print join(', ', $area->name, $stat.name, $stat->disk, 
                   $stat->month), "\n";
}