Select Code to Download

#!/usr/bin/perl -w

...
$template->param( LOCATION_DATA => \@location_data);

print "Content-Type: text/html\n\n", $template->output;

      IP:
      <select name="network" id="network">
...
         <TMPL_LOOP NAME="LOCATION_DATA">
            <option value="<TMPL_VAR NAME=LOC_ID>"><TMPL_VAR NAME=LOC_
+VALUE></option> <br>
        </TMPL_LOOP>

while (my $ref = $sth->fetchrow_hashref()) {
        my %row_data;
...
        $row2_data{LOC_VALUE} = $ref2->{'value'};
        push(@location_data, \%row2_data);
    }