use LWP::Simple;

  if (head($url)) {
     # ok document exists
  }