http://qs321.pair.com?node_id=1076041

Scrilla has asked for the wisdom of the Perl Monks concerning the following question:

Hello :) i will write a Perl script for my Debian Server. This script target the login to this site: https://plex.tv/users/sign_in/ Here is my code:
#!/usr/bin/perl use CGI; use CGI qw(:standard); use CGI::Carp qw(warningsToBrowser fatalsToBrowser); use Crypt::SSLeay; use WWW::Mechanize; my $mech = WWW::Mechanize->new(); my $url = "https://plex.tv/users/sign_in"; $mech->agent('User-Agent=Mozilla/5.0 (Macintosh; U; Intel Mac OS X + 10.5; en-US; rv:1.9.1.5) Gecko/20091102 Firefox/3.5.7'); $mech->get($url); print $mech->status; $result = $mech->submit_form( form_id => new_user, #name of the form #instead of form name you can specify #form_number => 1 fields => { user_login => 'test', # name of the input field and value user_password => 'test', } ,button => 'commit' #name of the submit button ); my $app_content = $mech->content(); print "$app_content\n";
I think it not works, because the "print" is the standard content. I hope anywhere can help me. Sorry for my bad english, thank you very much.