Select Code to Download

$dbh->do(
    "insert into Supersearch (ip, svr_name, port,
...
    $i, $data{$i}{cname}, $j, $data{$i}{ports}{$j}{service},
    $data{$i}{ports}{$j}{banner})
        or die $dbh->errstr;