Select Code to Download

#!/usr/bin/perl
use CGI qw/:standard/;
...
    $db->Close();
    exit;
}

use CGI qw/:standard :html3 :netscape/;
use Win32::ODBC;
...
    exit(0);
  }
  @tables=$db->TableList("","","","TABLE"); #Get list of tables