use Data::Dumper;  # put this with your other use statements

my ($receiver, $ccList, $sender, $replyTo, $subject, $body) = @_;

print Dumper $body;