#!/usr/bin/perl -w

use strict;

use Mail::Message;

my $msg = Mail::Message->read(\*STDIN);

print $msg->body;