in reply to pTk -- Text()

Simply do this: 
print $message->get("1.0", "end");

[download]

In Section Seekers of Perl Wisdom