#!/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;
[download]