Select Code to Download

print ul( map { ul("$course") } keys %data);

print "<ul>";
foreach my $ref ( @records ) {
    print "<li>", $ref->{Course}, "</li>";
}
print "</ul>";