#!/usr/bin/perl

use MIME::Parser;

die "Usage: parse_message.pl <msgfile>\n\n" if (!$ARGV[0]);

open (MSG, $ARGV[0]);

$parser = new MIME::Parser;

$entity = $parser->read(\*MSG);

#print $entity->header_as_string;
#print $entity->body_as_string;
print $entity->stringify;