Help for this page

Select Code to Download

Select or download this

if ($location eq ""){
    &main
...
}else{
    default('Where are you trying to go?');
}

Select or download this

SWITCH: for ($location) {
  /^$/        && do {&main()           ;last SWITCH};
...
  /^links$/i  && do {&links()          ;last SWITCH};
  default('Where are you trying to go'); # catch anything else
}