open my $log, "<", $logfile or die "$logfile: $!";
my $sth = $dbh->prepare ("insert into foo values (?,?,?)";
while (<$log>) {
    chomp;
    $sth->execute (split m/:/, $_);
    }
$sth->finish;
$dbh->commit;