#!/usr/bin/env perl 
use strict;
use warnings;

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

my $ua = LWP::UserAgent->new ();
my $res = $ua->get ('https://pause.perl.org/pause/authenquery');
is ($res->status_line, '401 Unauthorized', 'Request returns a valid 401');