#!/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 );