#!/usr/bin/perl
use HTML::TreeBuilder::XPath;
use HTML::StripTags qw(strip_tags);

use strict;
use warnings;

my $search_url = "https://encrypted.google.com/search?hl=de&q=".$ARGV[0];

my $tree = HTML::TreeBuilder::XPath->new_from_url($search_url);
my $anchor = $tree->findnodes('//h3[@class="r"]/a');

my $href = URI->new_abs($anchor->[0]->getValue, $search_url);
print strip_tags($href,());