#/usr/bin/perl
use LWP::UserAgent;#Con este modulo indicamos nuestro user agent
use HTTP::Response;#Con este obtenemos la respuesta de la pagina
 
my $ua = new LWP::UserAgent;#Le agregamos el objecto User Agent a la variable
$ua->agent('Mozilla/5.0 (X11; U; Linux i686; es-ES; rv:1.9.2.2pre) '. 
'Gecko/20100308 Ubuntu/9.10 (karmic) Namoroka/3.6.2pre');#Indicamos el user agent
 
my $peticion = new HTTP::Request GET =>"http://www.elhacker.net";#Hacemos la peticion GET
my $response = $ua->request($peticion);
 
if($response->is_success){#Si la web esta On devuelve true, y con el if indicamos si
                          #existe $response->is_success y como true es igual a 1
                          #El if se cumple y se ejecuta lo que esta dentro
                          #Si la web esta Off el if no se ejecuta porque devuelve false
    print "La web esta online\n";
    print $response->status_line, "\n";#El estatu de la web...
    exit;#Finalizamos el script
}else{print "La web esta off\n";exit;}
 
 
 

yoya@yoya-desktop:~/Escritorio$ perl a.pl
La web esta online
200 OK

#/usr/bin/perl
use LWP::UserAgent;#Con este modulo indicamos nuestro user agent
use HTTP::Response;#Con este obtenemos la respuesta de la pagina
 
my $ua = new LWP::UserAgent;#Le agregamos el objecto User Agent a la variable
$ua->agent('Mozilla/5.0 (X11; U; Linux i686; es-ES; rv:1.9.2.2pre) '. 
'Gecko/20100308 Ubuntu/9.10 (karmic) Namoroka/3.6.2pre');#Indicamos el user agent
$pag = 'http://foro.elhacker.net/search.html';
 
my $peticion = new HTTP::Request GET =>$pag;#Hacemos la peticion GET
my $response = $ua->request($peticion);
 
if($response->is_success){#Si la web esta On devuelve true, y con el if indicamos si
                          #existe $response->is_success y como true es igual a 1
                          #El if se cumple y se ejecuta lo que esta dentro
                          #Si la web esta Off el if no se ejecuta porque devuelve false
    print "La web esta online\n";
    print $response->status_line, "\n";#El estatu de la web...
    exit;#Finalizamos el script
}else{print "La web esta off\n";exit;}

yoya@yoya-desktop:~/Escritorio$ perl a.pl
La web esta online
200 OK

#/usr/bin/perl
use LWP::UserAgent;#Con este modulo indicamos nuestro user agent
use HTTP::Response;#Con este obtenemos la respuesta de la pagina
 
my $ua = new LWP::UserAgent;#Le agregamos el objecto User Agent a la variable
$ua->agent('Mozilla/5.0 (X11; U; Linux i686; es-ES; rv:1.9.2.2pre) '. 
'Gecko/20100308 Ubuntu/9.10 (karmic) Namoroka/3.6.2pre');#Indicamos el user agent
$pag = 'http://foro.elhacker.net/proafile.hatml';
 
my $peticion = new HTTP::Request GET =>$pag;#Hacemos la peticion GET
my $response = $ua->request($peticion);
 
if($response->is_success){#Si la web esta On devuelve true, y con el if indicamos si
                          #existe $response->is_success y como true es igual a 1
                          #El if se cumple y se ejecuta lo que esta dentro
                          #Si la web esta Off el if no se ejecuta porque devuelve false
    print "La web esta online\n";
    print $response->status_line, "\n";#El estatu de la web...
    exit;#Finalizamos el script
}else{print "La web esta off\n";exit;}

yoya@yoya-desktop:~/Escritorio$ perl a.pl
La web esta off