use CGI;
$query = new CGI;
print $query->header;
print <<EOF ;
<SCRIPT LANGUAGE="JavaScript">
function move(fbox, tbox) {
var arrFbox = new Array();
var arrTbox = new Array();
var arrLookup = new Array();
var i;
for (i = 0; i < tbox.options.length; i++) {
arrLookup[tbox.options[i].text] = tbox.options[i].value;
arrTbox[i] = tbox.options[i].text;
}
var fLength = 0;
var tLength = arrTbox.length;
for(i = 0; i < fbox.options.length; i++) {
arrLookup[fbox.options[i].text] = fbox.options[i].value;
if (fbox.options[i].selected && fbox.options[i].value != "") {
arrTbox[tLength] = fbox.options[i].text;
tLength++;
}
else {
arrFbox[fLength] = fbox.options[i].text;
fLength++;
   }
}
arrFbox.sort();
arrTbox.sort();
fbox.length = 0;
tbox.length = 0;
var c;
for(c = 0; c < arrFbox.length; c++) {
var no = new Option();
no.value = arrLookup[arrFbox[c]];
no.text = arrFbox[c];
fbox[c] = no;
}
for(c = 0; c < arrTbox.length; c++) {
var no = new Option();
no.value = arrLookup[arrTbox[c]];
no.text = arrTbox[c];
tbox[c] = no;
   }
}
//  End -->
</script>

EOF

print $query->start_html(-title=>'la...', -BGCOLOR=>'#9FBBC5');
print $query->Dump;

    print $query->startform;
    print $query->scrolling_list(-name=>'list1',
                                -values=>\%btsntoln,
                            -size=>10,
                            -multiple=>'true');
print <<EOF ;
<td align="center" valign="middle">
<input type="button" onClick="move(this.form.list2,this.form.list1)" v
+alue="<<">
<input type="button" onClick="move(this.form.list1,this.form.list2)" v
+alue=">>">
EOF
    print $query->scrolling_list(-name=>'list2',
                            -size=>10,
                            -multiple=>'true');
     print $query->submit('action','Update');
    print "</FONT>",$query->endform;
    print $query->end_html;
[download]