#!/usr/bin/perl

open(FILE, ">logfile");

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

-- do the db stuff here

---write to logfile
close(FILE);