use Web::Query::LibXML 'wq';
print wq('http://de.wikibooks.org')->find('link[rel="canonical"]')->attr('href');
# https://de.wikibooks.org/wiki/Hauptseite