#!/usr/bin/perl
package Mech;
$ENV{'DISPLAY'} = ':3.0';
use Modern::Perl;
use EventRepository2;

my $er = EventRepository2->new(display => 0, fast_mode => 1, launch => ['firefox', '-P', "CCAgenda", '-rep', '4244'], repl => 'localhost:4244');
$er->get ('http://slashdot.org');
$er->mySendKeys("^(l)slashdottiejksdjf");