use Data::Dumper;
print Dumper( $nntp, $nntp->body );
__END__