use strict;
use warnings;
use IO::Socket::SSL qw();
use LWP::UserAgent;

# ssl_opts wird nur benoetigt, da das Zertifikat nicht vertrauenswürdig ist
my $ua = LWP::UserAgent->new(ssl_opts => {
                                            SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE,
                                            verify_hostname => 0,}
                             );

my $resp = $ua->get( 'https://root%40adtran.com:Password@wlan.adtran.com:3000/internalusers.json' );

print $resp->content;

exit;