#cookies.pl
#usage cookies.pl [site] - specify site or leave null for all
use strict;
use Term::ANSIColor;

my $site = $ARGV[0];
my %values;

open(COOKIE, "$ENV{HOME}/.netscape/cookies") or die "Yack!: $!\n";

while (<COOKIE>) {

        next if ($_ =~ /^[#\n]/);
        chomp;
        my ($domain, $x, $path, $x, $x, $key, $value) = split(/\t/, $_);
        $values{$domain}{$key} = $value;
}

foreach my $d (sort keys %values) {

        next unless !($site) or $d =~ /$site/;
        print color("underline"), "$d", color("reset"), "\n";
        foreach my $k (sort keys %{$values{$d}}) {

                print "\t", color("green"), "$k";
                print color("reset"), " => ";
                print color("yellow"), $values{$d}{$k};
                print color("reset"), "\n";
        }
}

##</code><code>##

#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;
}