undef $/;
$mail = <>;
$/ = "\n";
Email::Store::Mail->store ( $mail );