my @areas = Areas->retrieve_all;
		foreach my $area (@areas) {
			print $area->name.":\n";

			foreach my $stat ($area->stats) {
				print "\t".join ",", ($stat->name,$stat->disk,$stat->month)."\n";
			}
		}

##</code><code>##

IT:
		Robert,200mb,8
		Lewis,100mb,5