#! /usr/bin/perl

use strict;
use warnings;
use SOAP::Lite
+trace => [ transport => sub { print $_[0]->as_string } ];


my $soap= SOAP::Lite
			-> uri("http://hsc.project.com/services")
			->proxy("http://192.168.60.1:8080/HSC-Authnz-1.0mock/authnz?wsdl") ;
			
print "\n===============================================\n";

print "\n\n resultat : ", $soap                                                  
    -> encryptToken("toto")                                            
    -> result;
	

print "\n===============================================\n";
	
print "\n\n resultat : ", $soap
   ->decryptToken("toto")
   -> result;
print "\n===============================================\n";