#!/usr/bin/perl
use strict;
use warnings;

#use Data::Dumper;

use MIME::Parser;
use HTTP::Date;
#use LWP::Simple;
use Jcode;

my $parser = new MIME::Parser;
my $entity = $parser->parse(\*STDIN);

my $subject = $entity->head->get('subject',0);
my $date = $entity->head->get('date',0);
my $mlname = $entity->head->get('x-ml-name',0);
my $body =  $entity->bodyhandle;
my $mailbody =  $body->as_string;

#$head->unfold;
#$head->decode;

$subject = Jcode->new($subject)->mime_decode->euc;
$mailbody = Jcode->new($mailbody)->euc;


my $time = HTTP::Date::time2iso(str2time($date));

print "Title: ",$subject;
print "Category: ",$mlname;
print "Date: ",$time,"\n";
print "\n";
print $mailbody;