#!/usr/bin/perl

use strict;
use warnings ;
use LWP::UserAgent () ;
use HTTP::Cookies ;
use Data::Dumper ;

my $ua = LWP::UserAgent->new ;
$ua->agent("Mozilla/5.0") ;
my $cookies = HTTP::Cookies->new(file => "$ENV{APPDATA}/cookies.txt",
                                  autosave => 1,
                                  ignore_discard => 1) ;
$ua->cookie_jar($cookies) ;
my $res = $ua->get("https://panel.dreamhost.com/") ;
print Dumper($cookies->get_cookies("https://panel.dreamhost.com/"));
exit ;