//In C#, using a web reference to auto generate the proxy class definition,
            var proxy = new GSDIAuthentication.IGSDIBaseAuthentication();
 
            //Not needed, but showing where the web reference goes to get the WSDL
            proxy.Url = "http://gsdi.goldstandard.com/GSDIAuthenticationWS.asmx?WSDL";
 
            //Set up a string array with the key given to you by technical support
            var urls = proxy.Authenticate(new []
                {
                "KEY_ISSUED_BY_GOLDSTANDARD"
                }
            );
 
            foreach (var url in urls)
            {
                //Use the URL field to attach this to an anchor tag server side, this
                //url is what you want users to click on in order to access our site.
                //If an error has occurred, the url.ErrorDescription will be populated
                //with the error message.  Should be blank otherwise.
                Response.Write(url.ErrorDescription);
                Response.Write(url.Url);
            }
 
##</code><code>##

#!/usr/bin/perl -w

BEGIN {
    my $b__dir = (-d '/home/consumer/perl'?'/home/consumer/perl':( getpwuid($>) )[7].'/perl');
    unshift @INC,$b__dir.'5/lib/perl5',$b__dir.'5/lib/perl5/x86_64-linux',map { $b__dir . $_ } @INC;
}

use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use SOAP::Lite;
use SOAP::Transport::HTTP;



my $cgi = new CGI;

print header; #print required HTML headers
print start_html('Token Results'); #print HTML Title

my $soap = SOAP::Lite
    ->uri('http://gsdi.goldstandard.com/GSDIAuthenticationWS.asmx?WSDL')
    ->proxy('http://GSDI.Authentication/2009/4/1/Authenticate');

my $drugID = 'KEY_ISSUED_BY_GOLDSTANDARD'; # Key for Drug ID



print "I got here without error so far";