#!/usr/bin/perl

while (<STDIN>) {
    -- process the email content
}

-- do the db stuff here

open(FILE, ">logfile");
---write to logfile
close(FILE);