use LWP;

use LWP::Authen::Digest;

my $username = "multiplay";

my $password = "multiplay";

my $url = "http://10.2.2.58:30005";

my $host_port="10.2.2.58:30005";

my $realm="IgdAuthentication";

my $browser = LWP::UserAgent->new();

$browser->env_proxy;

$browser->credentials("$host_port","$realm","$username","$password");

my $response=$browser->get($url);

#########
when logged in GUI the sniff traces are attached below
GET / HTTP/1.1

Host: 10.2.2.58:30005

User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2.8) Gecko/20100722 Firefox/3.6.8 (.NET CLR 3.5.30729) 79880703 Engine/6.00231

Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8

Accept-Language: en-us,en;q=0.5

Accept-Encoding: gzip,deflate

Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7

Keep-Alive: 115

Connection: keep-alive

Cache-Control: max-age=0



HTTP/1.1 401 Unauthorized

Content-Length: 0

WWW-Authenticate: Digest realm="IgdAuthentication", domain="/", nonce="YzhmZDNjMjU6OTE4MGYzOGY6NTQ1NTljZDk=", qop="auth", algorithm=MD5, opaque="5ccc09c403ebaf9f0171e9517f40e41" 



GET / HTTP/1.1

Host: 10.2.2.58:30005

User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2.8) Gecko/20100722 Firefox/3.6.8 (.NET CLR 3.5.30729) 79880703 Engine/6.00231

Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8

Accept-Language: en-us,en;q=0.5

Accept-Encoding: gzip,deflate

Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7

Keep-Alive: 115

Connection: keep-alive

Cache-Control: max-age=0, max-age=0

Authorization: Digest username="multiplay", realm="IgdAuthentication", nonce="YzhmZDNjMjU6OTE4MGYzOGY6NTQ1NTljZDk=", uri="/", algorithm=MD5, response="0a955190d2f9e8f7de84003077a58256", opaque="5ccc09c403ebaf9f0171e9517f40e41", qop=auth, nc=00000001, cnonce="b75a7950a19c7b75"

HTTP/1.1 200 OK
Content-Length: 0