use WWW::Mechanize;
use WWW::Mechanize::Firefox;
use Firefox::Application;


my $mech = WWW::Mechanize::Firefox->new(activate=>1,launch=>'C:\\Program Files\\Mozilla Firefox 4.0 Beta 11\\firefox.exe');	        
$mech->get('www.google.com');


my $repl=$mech->repl;
my $ff=$mech->application();
my $curr=$ff->selectedTab();
$ff->activateTab($curr,$repl);


$ff->closeTab($curr,$repl);
undef $mech;
undef $ff;