use LWP::UserAgent;

  my $ua = LWP::UserAgent->new;
  $ua->timeout(10);

  my $response = $ua->get('http://avantgardeconcierge.com/');

  if ($response->is_success) {
     print $response->content;  # or whatever
  }
  else {
     die $response->status_line;
  }