open (OF, ">body.txt"); print OF $body; close (OF);