my %h= ('username' => 'TEST_USER','password' => 'dsds');
my $authobj=WWW::OpenAPIClient::Object::AuthorizeRequestDTO->new(%h);
print Dumper $authobj;

$VAR1 = bless( {
                 'username' => undef,
                 'password' => undef
               }, 'WWW::OpenAPIClient::Object::AuthorizeRequestDTO' );