#!/usr/bin/perl

use LWP::Simple;
my $document = get("http://http://www.perlmonks.org/");

print "Content-type: text/html\n\n";
print $document;

exit;

##</code><code>##

#!/usr/bin/perl

use LWP::Simple;
my $document = get("http://localhost/Shibboleth.sso/GetAssertion?key=_8283db5f841dcf3914f777be6c3dc71b&ID=_229c80c9f6d300b607f0512a141f9882");

print "Content-type: application/samlassertion+xml\n\n";
print $document;

exit;