use strict;
use warnings;

use LWP;
use HTTP::Request::Common qw(POST);

my $cookies = {};

my $ua = LWP::UserAgent->new( cookie_jar => $cookies,
          agent =>     'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1');
my $req = POST 'https://www.deviantart.com/users/login',
                  [ username   => $mydauser,
                    password   => $mydapass,
                    reusetoken => 1,
                    ref        => 'http://www.deviantart.com'];
my $response = $ua->request($req);
print $response->content;