Select Code to Download

my $TYPE_QUERY = qq!SELECT APPT_TYPE||'|'||INFO_NEEDED FROM SC_APPT_TY
+PE!;

...
        print qq!<OPTION VALUE="$type_$info">$type</OPTION>\n!;
    }
}

Onsite,FULL
POC,FULL
Phone Walkthru,PHONE
...
Local Only,NONE
Holiday,NONE
SC Training,TRAIN

Appointment Type:<SELECT NAME="appt_type"><OPTION VALUE="O">n</OPTION>
<OPTION VALUE="P">O</OPTION>
<OPTION VALUE="P">h</OPTION>
...
<OPTION VALUE="H">o</OPTION>
<OPTION VALUE="S">C</OPTION>
</SELECT>