How can i build a selectfield, that can do a jump to an URL.

I need a tag like this:

<SELECT NAME="GoMenu" ONCHANGE="jumpLink()" language="JavaScript"><OPTION SELECTED VALUE>Select a link<OPTION VALUE="$URLfromDB">$NAMEfromDB</SELECT></FORM><script language="JavaScript">function jumpLink(){ var a = document.jump.GoMenu.options[document.jump.GoMenu.selectedIndex].value +""; if(a != ''){ if(parent!=self){ var f = self; while(f!=window.top){ f = f.parent; } if(a.indexOf("://")!=-1){ f.body.window.location.href = a;}else{ window.top.location.href = a; } }else{ window.top.location.href = a; } document.jump.GoMenu.selectedIndex=0; } }</script>

I need a new Sub in my script like this:

sub build_quicklinks {
# --------------------------------------------------------
# Builds a SELECT field from URL with Go-Menu.

my ($column, $value, $name) = @_;
my (@fields, $field, @selectfields, @lines, $line, $ouptut);
my ($fieldnum, $found, $i) = 0;

$name || ($name = $column);

for ($i = 0; $i <= $#db_cols; $i++) {
if ($column eq $db_cols[$i]) {
$fieldnum = $i; $found = 1;
last;
}
}
if (!$found) {
return "error building select field: no fields specified!";
}

open (DB, "<$db_file_name") or &cgierr("unable to open $db_file_name. Reason: $!");
if ($db_use_flock) { flock(DB, 1); }
LINE: while (<DB>) {
next if /^#/;
next if /^\s*$/;
$line = $_;
chomp ($line);
@fields = &split_decode ($line);
if (!(grep $_ eq $fields[$fieldnum], @selectfields)) {
push (@selectfields, $fields[$fieldnum]);
}
}
close DB;

$output = qq|<SELECT NAME="GoMenu" ONCHANGE="QuicklinksLink()" language="JavaScript"><OPTION>---|;
foreach $field (sort @selectfields) {
($field eq $value) ?
($output .= "<OPTION SELECTED>$field") :
($output .= "<OPTION value=$URL>$field");
}
$output .= "</SELECT>";

return $output;

}

Please give me the code for the mod.

Thank you very much

KAI