use Getopt::Long;
use C4::Context;
use C4::Biblio;
eval { require AnyEvent } or die "This script requires AnyEvent perl library. Use check-url.pl if you can't install AnyEvent" ;
use AnyEvent;
eval { require AnyEvent::HTTP } or die "This script requires AnyEvent::HTTP perl library. Use check-url.pl if you can't install AnyEvent::HTTP" ;
use AnyEvent::HTTP;
my ( $verbose, $help, $html ) = ( 0, 0, 0 );
my ( $host, $host_intranet ) = ( '', '' );
-