use strict;
use warnings;
use File::Find;
use DBI;

$dsn = "DBI:mysql:database=$database;host=$hostname;port=$port";
$dbh = DBI->connect($dsn, $user, $password);
$sth = $dbh->prepare("INSERT INTO table(foo,bar,baz) VALUES (?,?,?)");

sub wanted {
  my @stats = stat $_;
  $sth->execute( $foo, $bar, $baz );
}

find(\&wanted, @directories_to_search);