sub findurl
  { 
            
          
      open (INFO, "$datafile");
      @information = <INFO>;
      
      $url = "http://mysite/error_message.html";

      foreach $information (@information) 
      {
      ($title, $location) = split(/\|/ , $information);
      { 

          if ($title eq $name)
          {
          $url = $location;
          }
          
      }
      }
      
          
     close (INFO); 
   
  }