gistfile1.pl

use warnings;
use strict;

use WWW::Mechanize;

use_ok(  'WWW::Mechanize::Sleepy' );
my $Explorador = WWW::Mechanize->new( agent => 'Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.4) Gecko/20030624', sleep => '5..20' ); 

$Explorador->get("file:/home/alejandro/Escritorio/hehe.php.html"); #Proceed to access the URL to find all the links in emails
	#If you want debug DOM Document.
	#print $Explorador->content();

my @links = $Explorador->links;
foreach my $link (@links) {

   # Retrieve the link URL :http://valeptr.com/scripts/runner.php?IM=0cdb7d28110375.
   my $href = $link->url;
   

   # Retrieve the link text
   #my $name = $link->text;
   
   print "\nLinks:",$href;
}