use strict; use warnings; use IO::Socket::SSL qw(); use 5.010; use LWP::UserAgent; my $ua = LWP::UserAgent->new(ssl_opts => { SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE, verify_hostname => 0,} ); $ua->credentials( 'root\@adtran.com', 'Password'); my $resp = $ua->get( 'https://wlan.adtran.com:3000/internalusers.json' ); say $resp->status_line;