#!/usr/bin/perl
use strict;
use LWP;
  
my $browser = LWP::UserAgent->new( );
$browser->credentials("http://hostname.domain.com:80/OPDATA/Config/View.pcgi?DEVICE=WLC&JOB_TYPE=download&TITLE=1&JOB_STATUS=any", "EMAN Protected Resource", "myusername", "mypassword");
my $response = $browser->get("http://hostname.domain.com/OPDATA/Config/View.pcgi?DEVICE=WLC&JOB_TYPE=download&TITLE=1&JOB_STATUS=any");
print $response->content;