Select Code to Download

use WWW::Mechanize qw();
use IO::Socket::SSL qw();
use HTML::TreeBuilder;
...
}
close $fhandle;
$tree->delete();

<ol>
<li><span class="ClassTitle"><strong>CS 128</strong></span> Section 01
+ 
   <table border="0" cellpadding="5" cellspacing="0" class="GridView" 
+id="ClassDetails_TBL" width="99%">
...

<li></li>
...

{
          CS128 Section 01 => { 
                                Class Nbr => 11647,
...
                                Room => 8 52
                              }
}