Select Code to Download

# Assuming a %statename hash has been set up:
if ($FORM{$state} =~ /^(\w\w)$/ and $statename{$FORM{$state}}) {
  $state = $1;
  $statename = $statename{$state};
}