#!/usr/bin/perl

use strict;
use LWP::UserAgent;

my $user = "Atisa";
my $ua = LWP::UserAgent->new ('agent' => 'Mozilla/4.0 (compatible; Windows 5.1)');
$ua->cookie_jar ({});
my $r = $ua->post ('http://www.pornhub.com/login', 'Referer' => 'http://www.pornhub.com/login',
  Content => [
    'username' => $user,
    'password' => "sooper",
    'remember_me' => 1
  ]);
if ($r->status_line eq '302 Found') {
  print $user." logged in\n";
} else {
  print $user." login failed\n";
  print "content: ".$r->content;
}