#!/usr/bin/perl

BEGIN { use FindBin; use lib "$FindBin::Bin/lib" }

use strict;
use warnings;

use LWP::Debug qw(+);
use WWW::Scripter;

my $w = WWW::Scripter->new();
$w->use_plugin('JavaScript');

$w->get('http://www.adr.com');
$w->submit_form(
    form_name => 'agreementForm',
    button    => 'agreementAcceptButton',
);
die unless $w->success;
$w->get('/BrokerInvestor/drsearch.aspx ');
die unless $w->success;

my @buttons =
  $w->document->getElementsByClassName('ButtonClass Client DownloadUni');
my $onclick = $buttons[0]->getAttribute('onclick');
$w->get($onclick);

#$w->submit_form(
#	form_name => 'aspnetForm',
#	button => $buttons[0]->getAttribute('name')
#);

die unless $w->success;