Unable to generate SSL Keys using iControl

Hello!

I am trying to create an SSL Key to noavail. I am not receiving any soap error messages. Any help would be greatly appreciated.

Thanks,

Anthony

!/usr/bin/perl
 Include modules
use SOAP::Lite;      + trace => qw(method debug);
use locale;
use iControlTypeCast;
 Revision history
-------------------------------------------------------------------------------
 Global Variables
-------------------------------------------------------------------------------
$corpID = "admin";
$corpPass = "admin";
$host = "10.1.6.18";
-------------------------------------------------------------------------------
 Constants
-------------------------------------------------------------------------------
my %x509Data = ( country_name => "US" , state_name => "Massachusetts" ,
    locality_name => "Boston" , organization_name => "MyCompany" ,
    division_name => "Ops" );
my %keyData = (key_type => "RSA_PRIVATE", bit_length => "1024", security => "NORMAL");
-------------------------------------------------------------------------------
 Main
-------------------------------------------------------------------------------
$soap = SOAP::Lite
    -> uri('urn:iControl:Management/KeyCertificate')
    -> proxy("https://$host/iControl/iControlPortal.cgi");
print "\nEnter the application name: ";
$common_name = "ajg.gcs.com";
chomp($common_name);
$x509Data{common_name} = $common_name;
$keyData{id} =  $common_name;
push @keys, %keyData;
push @x509Data, %x509Data;
$soap_response = $soap->key_generate(SOAP::Data->name(mode => "MANAGEMENT_MODE_DEFAULT"),
  SOAP::Data->name( keys => @keys), SOAP::Data->name( x509_data => @x509Data),
  SOAP::Data->name(create_optional_cert_csr => false),
  SOAP::Data->name(overwrite => true) );
  
if ($soap_response->fault) {
  $errmsg = $soap_response->faultstring ."\n";
      print $errmsg;
}
-----------------------------------------------------------------------
 Transport Information
-----------------------------------------------------------------------
sub SOAP::Transport::HTTP::Client::get_basic_credentials
{
        return "$corpID" => "$corpPass";
}