#!/usr/bin/perl
use strict;
use LWP;
use LWP::UserAgent;

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

$browser->credentials(
	'wrfl.uky.edu:9000',
	'Shoutcast Server',
	'user' => 'pass'
);

my $response = $browser->get('http://wrfl.uky.edu:9000/admin.cgi?mode=viewxml');
my $xml = $response->decoded_content;
print $xml;