#!/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()');


<>;

##</code><code>##

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

my $repl = MozRepl->new;

$repl->setup({
        log => [qw/ error info /],
        plugins => { plugins => [qw[ JSON2 ]] },
    }); 

my $bridge = MozRepl::RemoteObject->install_bridge(repl => $repl);

<>;