#!perl

use Email::MIME;
$file = shift || "g";
open G, $file; $g = join '', <G>; close G;
$e = new Email::MIME ($g);