use strict;
use warnings;

use LWP::UserAgent;
use Test::More tests => 1;

my $ua = LWP::UserAgent->new;
my $res = $ua->get ('https://www.perlmonks.org/?node_id=11133845');
is $res->header ('server'), 'Apache';