#!/usr/bin/perl -w
use strict;
use warnings;
use MozRepl;


my $repl = MozRepl->new;
$repl->setup;

$repl->execute('content.document.location.href="http://www.google.fr/firefox"');


$repl->execute('repl.whereAmI()');


$repl->execute('repl.enter(content)');

$repl->execute('a = document.getElementsByTagName("a")');

$repl->execute('function all_a() {var all=""; for(var i=0;i<a.length;i++) {all += i + ":" +a[i] + "\n"; } alert(all); };');

$repl->execute('all_a()');

$repl->execute('a[3].click()');


<>;