$message = new Mail::Internet \*STDIN;
    $who_from = $message->head->get("From");
    $sent = $message->head->get("Date");
    $subject = $message->head->get("Subject"); 
    $content = join('',@{$message->body} );