#!Perl

#use strict;
use HTTP::Request::Common;
use XML::Simple;
use XML::Dumper;
use Data::Dumper;
use WWW::Mechanize;
use MIME::Base64;


my $url = 'http://10.251.1.122:8080/spectrum/restful/devices?attr=0x1000a&attr=0x10009';
my $Domain = 'spectrum';
my $UserName = 'spectrum';
my $Password = "P\@ssw0rd";
my $outfile = "result.xml";

my $agent = WWW::Mechanize->new();
my @args = (
	Authorization => "Basic " .
		MIME::Base64::encode( $UserName . ':' . $Password )
);

$agent->credentials( 'http://10.251.1.122:8080' , $Domain, $UserName, 

$Password );
my $results = $agent->get( $url, @args );


#print Dumper($results);

open(OUTFILE, ">$outfile") || die "could not open output file";
print OUTFILE Dumper($results);
close(OUTFILE);

print "done\n";