sub check_link {
  my $url  = $_[0];

  my $realm = 'Privacy Guard';
  my $user  = 'Admin';
  my $pass  = '********';

  $url =~ s/http:\/\///;
  $url = $url.':80';

  my $ua  = LWP::UserAgent->new;
  $ua->credentials( $url, $realm, $user, $pass );
  my $res = $ua->head($url);

  if ($res->is_error) {
   return $res->status_line;
  } else {
   return $url;
  }
}