or download this
#!/usr/bin/perl
package Mech;
...
my $er = EventRepository2->new(display => 0, fast_mode => 1, launch =>
+ ['firefox', '-P', "CCAgenda", '-rep', '4244'], repl => 'localhost:42
+44');
$er->get ('http://slashdot.org');
$er->mySendKeys("^(l)slashdottiejksdjf");