Select Code to Download

print Table(Tr(td(
  map { a({href => $urlhash{$_}}, $_), br } sort keys %urlhash
)));

use CGI qw(:all *table *Tr *td);
print start_table, start_Tr, start_td;
...
  print a({href => $urlhash{$_}}, $_), br;
}
print end_td, end_Tr, end_table;