$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);