Select Code to Download

#!/usr/bin/perl
package Mech;
...
my $er = EventRepository2->new(fast_mode => 1, launch => ['firefox', '
+-P', "Profile3", '-rep', '4243'], repl => 'localhost:4243');
$er->get ('http://digg.com');
$er->mySendKeys("^(l)diggie");