#!/usr/local/bin/perl 

use strict;
use warnings;

use WWW::Mechanize::Firefox;

use 5.010;

my $mech = WWW::Mechanize::Firefox->new(
  autoclose => 0,
);

my $url =
q(https://selfservice.mypurdue.purdue.edu/prod/bwckctlg.p_disp_dyn_ctlg?);

$mech->get($url);

say q(got url);

say q(choose term);
$mech->form_number(1);
$mech->field('cat_term_in', '201220');
$mech->submit();

say q(choose subject);
$mech->form_number(1);
$mech->select('sel_subj', ['AAE']);
$mech->submit();

say $mech->content();