#--------------------------------------------
use HTTP::Request::Common qw(GET);
use LWP::UserAgent;
use strict;
my $browser = LWP::UserAgent->new;
$browser->credentials(
  'myurl:8080',
  'myrealm',
  'myuser' => 'mypsw'
);

my $response = $browser->get(  'http://myurl:8080/Organization',
[
    'Depth'  => '1'
]
);

if ($response->is_success) {
         print $response->content;
      } else {
         print "Error: " . $response->status_line . "\n";
      }
#--------------------------------------------

##</code><code>##

Use of uninitialized value $v in substitution (s///) at C:/strawberry/perl/site/lib/LWP/Protocol/http.pm line 182.
Use of uninitialized value $v in concatenation (.) or string at C:/strawberry/perl/site/lib/Net/HTTP/Methods.pm line 154.
Use of uninitialized value $v in substitution (s///) at C:/strawberry/perl/site/lib/LWP/Protocol/http.pm line 182.
Use of uninitialized value $v in concatenation (.) or string at C:/strawberry/perl/site/lib/Net/HTTP/Methods.pm line 154.