#!/usr/bin/perl
use strict;
use WWW::Mechanize::Firefox;

my $wmcart      = "https://www.whiskeymilitia.com/wm/cart.html";
my $btcart      = "https://www.bonktown.com/bonktown/cart.html";
my $clcart      = "https://www.chainlove.com/chainlove/cart.html";
my $sccart      = "https://www.steepandcheap.com/steepcheap/cart.html";
my @carts = ($wmcart, $btcart, $clcart, $sccart);

sub new_moz
{
	my $ret = WWW::Mechanize::Firefox->new(
				width  => 1200,
				height => 950,
				autodie => 0,
				activate => 1,
				bufsize => 10_000_000,
#				use_queue => 0,
				tab => 'current'
		       	);
	#$ret->on_event(1);
	$ret->allow(images => 0);
	$ret->{birth} = time();
	return $ret;
}
my $moz = new_moz();

while (1) {
foreach my $cart (@carts) {
	$moz->get("http://www.google.com");
	$moz->get($cart);
	my @links = $moz->find_link_dom(n => 'all');
	printf "done: '%s'\n", $cart;
}
};

die "done1";