Select Code to Download

#!/usr/local/bin/perl 

...
$mech->submit();

say $mech->content();

got url
choose term
choose subject
2 elements found for './/*[(local-name(.)="input" or local-name(.)="se
+lect" or local-name(.)="textarea") and @name="sel_subj"]' at ./get_co
+urse_descriptions2.pl line 28

<FORM ACTION="/prod/bwckctlg.p_display_courses" METHOD="POST">
<INPUT TYPE="hidden" NAME="term_in" VALUE="201220">
...
<SELECT NAME="sel_subj" SIZE="3" MULTIPLE ID="subj_id">
<OPTION VALUE="AAE">AAE-Aero & Astro Engineering