($name, $value, $id, $pass) = split(/=/, $pair);
if( $name eq "jumpto" ) {
$jumpto = $value; # 移動先
}
print "Location: $jumpto\n\n";
print "Content-type: text/html\n\n"; print qq|<HTML>\n<HEAD><META HTTP-EQUIV="Content-Type" CONTENT="text/html ; charset=Shift_JIS">\n<TITLE>移動先が未指定です</TITLE></HEAD>\n|; print qq|<BODY><H1>移動先が選択されていません。</H1><P>移動先を選択してからボタンをクリックして下さい。</P></BODY>\n|;