#grabme.pl
use strict;
use LWP::UserAgent;
use HTTP::Request::Common;
use HTTP::Cookies;

# instant a new agent
my $agent = new LWP::UserAgent;
$agent->agent("Mozilla/4.7 [en] (X11; I; Linux 2.2.13-mosix i686; Nav)");

# issue a request for the web page
my $req = GET("https://login.mp3.com/login?orgin=artist");

my $res = $agent->request($req);
if ($res->is_success) {
        print $res->content;
}
else {
        print $res->error_as_HTML;
}