use WWW::Mechanize::Firefox;
my $mech = WWW::Mechanize::Firefox->new(
  launch => '/Applications/Firefox.app/Contents/MacOS/firefox',
);

$mech->get('http://google.com');