$dbh->do("
CREATE TABLE saninfo
  (IP TEXT, Manufacturer TEXT, Model TEXT, OS TEXT,
   OSSP TEXT, RAM TEXT, CPUSpeed INT, CPUCount INT,
   CPUType TEXT, SOFT TEXT)
");
my $select = $dbh->prepare("
    SELECT hostinfo.IP, Manufacturer, Model, OS, OSSP,
           RAM, CPUSpeed, CPUCount, CPUType, SOFT
      FROM hostinfo
      JOIN software ON hostinfo.IP = software.IP
     WHERE SOFT LIKE '%Secure Path%'
");
my $insert = $dbh->prepare("
    INSERT INTO saninfo VALUES(?.?.?.?.?.?.?.?.?.?)
");
$select->execute;
while (my @row = $select->fetchrow_array) {
    $insert->execute(@row);
}