Select Code to Download

$DB->Sql("INSERT INTO Hosts(Host_Name,SAN,location,Country) 
      VALUES ('$host',
              '$clean_data{$host}'SAN'}',
              '$clean_data{$host}{'location'}',
              '$clean_data{$host}{'country'}')");

die "Sql Failed" . $DB->Error( ) . "\n" if ($DB->Sql
     ("SELECT Host_ID FROM Hosts WHERE Host_Name='$host'"));
...
            $rec_indx =  $data{"Host_ID"};
            print qq(index key is $rec_indx\n);
        }

        for my $info (@{$clean_data{$host}{'applications'}}) 
        {
...
                                      '$rec_indx')");
            }
        }