#!/usr/bin/perl
#
# Test script that extracts one of the nicest
# graphs from skritter.com
#
# $Id: characters_learned.pl,v 1.1 2009/01/09 12:57:45 magnus Exp $
#

use strict;
use lib '.';
use skritter;
$|=1;

my $USERNAME = 'myname';
my $PASSWORD = 'secret123';

my $s = skritter->new( 'username'=>$USERNAME, 'password'=>$PASSWORD);
$s->login();
my $progress = $s->progress_html();

if ($progress =~ m#"(http://chart\.apis\.google\.com/chart\?cht=lc[^"]+)"#)
{
	print $1;
}
else
{
	print $progress;
}