$dbh->do(qq{INSERT INTO files 
           (file, dev, ino, mode, nlink, uid, gid, rdev, size, 
            atime, mtime, ctime, md5sum, bz2size, disc, newfile)
            VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ? )},
            undef,
            $filename, $dev, $ino, (sprintf "%lo", $mode), $nlink, $uid, $gid, $rdev, $size,
            $atime, $mtime, $ctime, $digest, undef, undef, undef);

##</code><code>##

	$sth = $dbh->prepare('SELECT * FROM modules WHERE module LIKE ? AND code LIKE ?');
	$rv = $sth->execute('%v%', '%x%');

##</code><code>##

	$sth = $dbh->prepare('SELECT * FROM modules WHERE module LIKE :m AND code LIKE :c');
	$sth->bind_param(':m', "%v%");
	$sth->bind_param(':c', "%x%");
	$rv = $sth->execute;