#!/usr/bin/perl
use strict;
use WWW::Mechanize;

print "Versions\n";
for (qw(WWW::Mechanize LWP::UserAgent)) {
    print "$_\t" . $_->VERSION, "\n";
};

my $url = 'https://www.edited.com/';
my $user = 'user';
my $pass = 's3cr1t';

my $m = WWW::Mechanize->new();

$m->credentials($user => $pass);

$m->get($url);

print $m->follow_link(text => 'Enter');

print $m->title,"\n";
print $m->uri,"\n";

$m->click_button(name => 'B1');

print $m->uri,"\n";
print $m->status,"\n";