If you use LWP, you can use the header() method in the response object. The code would look something like this:

use LWP::UserAgent;
my $ua = LWP::UserAgent->new();
my $response = $ua->get( $host );

foreach my $header (qw( Set-Cookie Server P3P ))
{
    print $response->header( $header );
}
[download]