#!/usr/bin/perl

use strict;
use WWW::HtmlUnit::Sweet;

my $agent = WWW::HtmlUnit::Sweet->new(
  version => 'FIREFOX_3',
  url => 'http://google.com/'
);

# For some reason we must send \n separately for google
$agent->type("HtmlUnit");
$agent->type("\n");

print "Result:\n" . $agent->asXml . "\n\n";