#!/usr/bin/perl -w
use strict;

use WWW::Mechanize::Firefox;

my $www=WWW::Mechanize::Firefox->new(
    #stack_depth=>5,
    autodie=>1,
    timeout=>60,
    #tab=>qr/$tabregex/,
    bufsize => 50_000_000,
);
#$www->events(['load','onload','loaded','DOMFrameContentLoaded','DOMContentLoaded','error','abort','stop']);

print time." get #1\n";
$www->get('http://cmcc.deviantart.com/');
print time." after get #1\n";

print time." content #1\n";
my $con=$www->content();
print time." after content #1\n";

print time." get #2\n";
$www->get('http://cmcc.deviantart.com/#/d1a8l1t');
print time." after get #2\n";

print time." content #2\n";
$con=$www->content();
print time." after content #2\n";