use warnings;
use strict;
use MIME::Base64               qw(encode_base64 decode_base64);
use URI::Escape                qw(uri_escape uri_unescape);
use IO::Uncompress::RawInflate qw(rawinflate $RawInflateError);

my $AuthnRequestXML = '';
my $samlRequest = 'BASE64_ENCODED_SAMLREQUEST_FROM_SERVICE_PROVIDER';
$samlRequest = uri_unescape($samlRequest);
$samlRequest = decode_base64($samlRequest);
rawinflate \$samlRequest => $AuthnRequestXML or return "Error decompressing data: $RawInflateError\n";
print "SAML AuthnRequest XML:\n$AuthnRequestXML\n";