#!/usr/bin/perl
use warnings;
use DBI;
use Email::Store ('dbi:mysql:server=127.0.0.1;database=test','test','test');
undef $/;
$mail = <>;
$/ = "\n";
Email::Store::Mail->store ( $mail );