if ($msg->{Body}) {
        my $sth = $dbh->prepare($command);
        $sth->execute($msg->{Body}) || die "could not execute MySQL statement: $command";
        $sth->finish();
    }


##</code><code>##

$command="insert into mailstore.received (SenderName,SenderEmailAddress,SentOnBehalfOfName,ReplyRecipientNames,SenderEmailType,SentOn,ReceivedTime,MessageClass,Size,Subj,SentTo,Unread,InternetCodepage,importance,EntryID,ConversationIndex,ConversationTopic,Class,BodyFormat,Body) values ('Bob O\'Neill','bob.oneill@polit.org','Bob O\'Neill','bob.oneill@polit.org','SMTP',20060407143605,20060407150746,'IPM.Note',27922,'FW: Less Than a Month to Register - 2nd Annual Sciences Forum','Bob O\'Neill',1,20127,1,'000000007AD91AAD8C99D111B2A90000F843DC060700E422DA54DFB9D011B2710000F843DC0600000170A97100001CA7D120557E1744BFE304EF057275DB000000BBAA130000','01C65A8FB33408E229DC00114BA1BB7DBD1E5F21850E','Less Than a Month to Register - 2nd Annual Sciences Forum',43,2,?)";