sub parse_message {
    
    $message = new Mail::Internet \*STDIN;
    $sender = $message->head->get("From");
    @content = $message->body();
    $content = join('\n',@content);

}