use strict;
use LWP::UserAgent;
		
       my $user="Atisa";
       my $ua = LWP::UserAgent->new;
       my $r = $ua->get('http://www.pornhub.com');

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

        if($r->content =~ /Sign Out/) {
                print $user." logged in\n";
        } else {
                print $user." login failed\n";
				print "content: ".$r->content;

        }