#!/usr/bin/perl -I/opt/INTRINsec/lib -I /opt/INTRINsec/lib/i386-linux-thread-multi

use HTTP::Request;
use LWP::UserAgent;
use Data::Dumper;

my $request = HTTP::Request->new(
                                 'GET',
                                 'http://www.google.fr'
                                 );
my $ua = LWP::UserAgent->new;
my $response = $ua->request($request);

if ($response->content() =~ /<input name=hl type=hidden value=(\w*)>/m) {
    print $1 ."\n";
}