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 );
}