#!/usr/bin/perl 

require LWP::UserAgent; 
require HTTP::Request; 

print "Content-type: text/html\n\n";
# url a vérifier 
$url = "http://www.scripts-fr.com/"; 

$etat = &check_url ($url); 

if ($etat eq "ok") 
{	print "Url ok : $etat"; 
} 
else 
{	print "$url KO : $etat"; 
} 


sub check_url 
{	my ($url); 
	my ($ua); 
	$url = $_[0]; 

	# crée un user agent 
	$ua = new LWP::UserAgent; 
	
	# défini la signature du browser 
	$ua->agent("LinkChecker (http://scripts-fr.com/)"); 
	$ua->timeout(15); 
	$ua->max_size(300); # prends 300 bytes 
	
	# effectue la requete 
	$request = new HTTP::Request GET => $url; 
	
	$response = $ua->request($request); 
	
	if ($response->is_success) 
	{ 
		return "ok"; 
	} 
	else 
	{ 
		return $response->code; 
	} 
}