Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

executable file 33 lines (21 sloc) 0.65 kb
use strict;
use warnings;
use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
$mech->agent_alias('Linux Mozilla');
my $login_url = '';
form_name => 'login_form',
fields => {
email => FIX,
password => FIX
#my($authcode) = $mech->content =~ /<input type="hidden" name="authcode" value="([a-z0-9]+)">/;
$mech->field('embed_media_html', '6DRzXUp0LPX9TkNsF1Uoctvw7GkO4IhJXjMqK5OuICB3PuDliuF8KZbT5CgI');
print $mech->content;
Jump to Line
Something went wrong with that request. Please try again.