HTTP Header auslesen

[n.d. parker]

Moin,

wie kann man mit Perl (mithilfe des moduls LWP) den gesamten response @header einer HEAD anfrage eines bestimmten URLs $url bekommen?

etwa so, wie in perldoc LWP::UserAgent beschrieben:

#!/usr/bin/perl -w
use strict;

my $ua = new My::LWP::UserAgent;
$ua -> agent('Mozilla/4.7 [de]C-CCK-MCD QXW0322c (Win98; I)');

my $url = 'http://www.o3media.de/test';
my $method = 'HEAD';

my $request = new HTTP::Request $method => $url;
print "$method Request to $url...\n\n";

my $result = $ua->request($request);
print $result -> as_string;

package My::LWP::UserAgent;
use base qw(LWP::UserAgent);

sub redirect_ok {return};

end of source

Viele Gruesse,

n.d.p.