#!/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";