#!/usr/bin/perl

use strict;
use DBI;

my $dbh = DBI->connect_cached($dsn, $user, $pass);
my $insert_stmt = "insert statement";
my $sth = $dbh->prepare($insert_stmt);

open(IN, "tcpdump -nelttti pflog0 2>&1 |");
while (<IN>) {
   $sth->execute($stuff);
}
close(IN);