Select Code to Download

$dbh->do(qq{INSERT INTO files 
           (file, dev, ino, mode, nlink, uid, gid, rdev, size, 
...
            undef,
            $filename, $dev, $ino, (sprintf "%lo", $mode), $nlink, $ui
+d, $gid, $rdev, $size,
            $atime, $mtime, $ctime, $digest, undef, undef, undef);

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

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