#!/usr/bin/perl

use LWP::UserAgent;
use Data::Dumper;

my $ua = LWP::UserAgent->new( Timeout   => 5,
                                agent   => "test" );
my $res = $ua->post( "http://www.microsoft.com/cgi-bin/login.cgi" );

print Dumper( $res->headers );

##</code><code>##

$VAR1 = bless( {
                 'link' => [
                             '</library/Errorpages/mnp_utility.mspx/templatecss?template=%2flibrary%2fgallery%2ftemplates%2fMNP2.SiteMap&shell=%2flibrary%2ferrorpages%2fconfig%2fen-us.config&locale=en-us>; rel="Stylesheet"; type="text/css"',
                             '</library/mnp/2/aspx/css.aspx?locale=en-us&static=Page>; /="/"; rel="Stylesheet"; type="text/css"',
                             '</library/toolbar/3.0/css.aspx?c=/library/errorpages/config/en-us.config>; /="/"; rel="stylesheet"; type="text/css"'
                           ],
                 'x-powered-by' => 'ASP.NET',
                 'client-response-num' => 1,
                 'cache-control' => 'private',
                 'date' => 'Thu, 12 Oct 2006 20:15:47 GMT',
                 'x-meta-search.mnp.template' => 'MNP2.SiteMap',
                 'client-peer' => '207.46.19.30:80',
                 'content-length' => '16401',
                 'x-aspnet-version' => '2.0.50727',
                 'p3p' => 'CP="ALL IND DSP COR ADM CONo CUR CUSo IVAo IVDo PSA PSD TAI TELo OUR SAMo CNT COM INT NAV ONL PHY PRE PUR UNI"',
                 'client-date' => 'Thu, 12 Oct 2006 20:15:46 GMT',
                 'content-type' => 'text/html; charset=iso-8859-1',
                 'title' => "We\x{2019}re sorry, the page you requested could not be found",
                 'server' => 'Microsoft-IIS/6.0'
               }, 'HTTP::Headers' );