#!/usr/bin/perl
use strict;
use File::Find;
use DBI;

my $sql = q(insert into file_stat values(?,?,?,?,?,?,?,?,?,?,?,?,?,?));
my $dbh = DBI->connect('dbi:ODBC:test','test','test123',{AutoCommit => 1,RaiseError => 1}) or die "error!!\n";
my $sth = $dbh->prepare($sql);

sub wanted {
    return unless /\.pl$/i;

    my @stats = stat $File::Find::name;
    $sth->execute(@stats, $File::Find::name);
}

# find files
find (\&wanted,".");