Connection: close
Date: Tue, 21 Mar 2006 21:10:49 GMT
Accept-Ranges: bytes
ETag: "8d7ba-16ab-441f261f"
Server: Apache/1.3.29
Content-Length: 5803
Content-Type: text/html
Content-Type: text/html; charset=iso-8859-1
Last-Modified: Mon, 20 Mar 2006 22:01:03 GMT
Client-Date: Tue, 21 Mar 2006 20:54:08 GMT
Client-Peer: 66.39.76.93:80
Client-Response-Num: 1
Link: <mailto:cpan@perl.org>; rev="made"
Title: CPAN

##</code><code>##

use strict;
use warnings;
use LWP::Simple;

my $url = "http://www.cpan.org";
my $src = get($url);

my @stuff = head($url);

print @stuff;

##</code><code>##

C:\Documents and Settings\admin\Desktop>perl test.pl
Use of uninitialized value in print at test.pl line 12.
text/html58031142892063Apache/1.3.29

##</code><code>##

$VAR1 = bless( {
                 '_protocol' => 'HTTP/1.1',
                 '_content' => '',
                 '_rc' => 200,
                 '_headers' => bless( {
                                        'connection' => 'close',
                                        'client-response-num' => 1,
                                        'last-modified' => 'Mon, 20 Mar 2006 22:
01:03 GMT',
                                        'accept-ranges' => 'bytes',
                                        'date' => 'Tue, 21 Mar 2006 21:17:28 GMT
',
                                        'client-peer' => '66.39.76.93:80',
                                        'content-length' => '5803',
                                        'client-date' => 'Tue, 21 Mar 2006 21:17
:43 GMT',
                                        'etag' => '"8d7ba-16ab-441f261f"',
                                        'content-type' => 'text/html',
                                        'server' => 'Apache/1.3.29'
                                      }, 'HTTP::Headers' ),
                 '_msg' => 'OK',
                 '_request' => bless( {
                                        '_content' => '',
                                        '_uri' => bless( do{\(my $o = 'http://ww
w.cpan.org')}, 'URI::http' ),
                                        '_headers' => bless( {
                                                               'user-agent' => '
LWP::Simple/5.805'
                                                             }, 'HTTP::Headers'
),
                                        '_method' => 'HEAD'
                                      }, 'HTTP::Request' )
               }, 'HTTP::Response' );