#!/usr/local/bin/perl

use WWW::Mechanize;

binmode(STDOUT, ":utf8");

my $url  = "http://domain.com/bookmarks.html";
my $mech  = WWW::Mechanize->new();
$mech->get( $url );
my @links = $mech->links();

foreach my $link (@links) {
   print $link->url() . "|" . $link->text() . "\n";
}