use 5.14.2;
use Lasso;

my $server = Lasso::Server->new("sp-metadata.xml",     # Liberty metadata file for the service provider   
                                "sp-private.pem",      # service provider private key; used to sign documents
                                undef,                 #
                                "sp-cert.pem");        # service provider certificate; sent inside signed documents


$server->add_provider(Lasso::Constants::PROVIDER_ROLE_IDP,
                     "idp-metadata.xml",               # Liberty metadata file for the identity provider 
                     "idp-public.pem",                 # identity provider public key; used to verify signature in documents sent by the identity provider 
                     "idp-cacert.pem");                # certificate of the certification authority used by the identity provider


my $login = Lasso::Login->new($server);

$login->init_authn_request('http://www.idp.com/123', Lasso::Constants::HTTP_METHOD_REDIRECT );
$login->build_authn_request_msg();
