#!/usr/bin/perl
use strict;
use warnings;

use WWW::Mechanize::Firefox;

# Create the global firefox object
my ($FF) = WWW::Mechanize::Firefox->new(
    launch => '/Applications/Firefox.app/Contents/MacOS/firefox-bin',
    tab    => 'current',
);

for ( my $i = 0; $i < 10; $i++) {
    $FF->get( 'http://www.google.com' );
    sleep( 5 );
}
print "Done\n";
exit;