Select Code to Download

sub query {
   my ($str,@argv) = @_;
...
   }
   return $answer;
}

last if grep $answer eq $_, @argv;

sub query2 {
   my ($str,@argv) = @_;
...
      return $argv[0] unless $answer;
   }
}

$answer = $default if ($answer eq "");

# with this instead
$answer ||= $default;