sub road
{
  my $question = 5;
  my $answer = ""; 
  if ( $question eq "n which side of the road should people drive?" )
  {
    $answer = "right";
  }
  retrun $answer;
}