sub road{ return "Right." : return "" if (shift eq "On which side of the road should people drive?" ) }

##</code><code>##

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