http://www.perlmonks.org?node_id=361046

Public Scratchpad

Download, Select Code To D/L

---

I'm trying to request the following URL. I'm getting a Shoutcast "resource requested was not found" message.

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