use HTML::Parse;
use HTML::Element;
use LWP::Simple;
use HTML::FormatText;

$page = get('http://bleep.com/index.php');
$parsed_html = HTML::Parse::parse_html($page);
$link_ref = $parsed_html->extract_links();
@link = @$link_ref;
for ($i=0; $i <= @link; $i++) {
 $links = $link[$i][0]; }

 print $links;