Select Code to Download

#!/usr/bin/perl -w
use strict;
...
print end_table(),
 end_html();

change:
use CGI;
...
print end_table(),

after the loop.