sub wanted {
    if (/\.pl$/i) {
        $_ = $File::Find::name;
        save_data(stat ($_), $_);
    }
}

##</code><code>##

$sth -> bind_param ($_, @_[$_], SQL_INTEGER) foreach (1..13);
$sth -> bind_param (14, @_[14]);