foreach (@$body) {
	print "$_\n";
}