#!/usr/bin/perl --

use strict;
use warnings;

use CGI 2.69 qw' header ';
use LWP::Simple;

my $uri =
"http://localhost/Shibboleth.ssoGetAssertion?key=_8283db5f841dcf3914f777be6c3dc71b&ID=_229c80c9f6d300b607f0512a141f9882";

binmode STDOUT;

print header(qw! -type application/samlassertion+xml !);

my $rc = getprint($uri);

if ( not is_success($rc) ) {
    print qq!<?xml version="1.0" encoding="UTF-8"?><ERROR>$rc</ERROR>!;
}

exit;