#!/usr/bin/perl -w

$tabregex='deviantART';

$|=1;

use Data::Dumper;
use WWW::Mechanize::Firefox;

$ENV{'SHELL'}='/bin/bash';

$Data::Dumper::Maxdepth=3;

$www=WWW::Mechanize::Firefox->new( stack_depth=>5, autodie=>1, timeout=>60, tab=>qr/$tabregex/, bufsize => 50000000 );
$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";
$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";

print time." saveurl #1\n";
$www->save_url('http://fc02.deviantart.net/fs30/i/2008/048/d/9/Wind_by_CMcC.jpg'=>'/tmp/Wind_by_CMcC');
print time." after get #2\n";