#!/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 ({});
push @{$ua->requests_redirectable}, "POST";

my $r = $ua->post ('http://www.pornhub.com/login', 'Referer' => 'http://www.pornhub.com/login',
  Content => [
    'username' => $user,
    'password' => "sooper",
    'remember_me' => 1
  ])->content;

if ($r =~ /<div class="success">/) {
  print $user." logged in\n".$r;
} else {
  print $user." login failed\n";
}