Select Code to Download

#!/usr/bin/perl -w

use strict ;
...
  print TR (td ([@cols])), "\n" ;
}
print end_table, end_html ;