use strict;
my $ua = LWP::UserAgent->new();
my $content_ref = $res->content_ref;
print "my %charts = (\n";
while ($$content_ref =~ m{src="(http://chart.apis.google.com/chart[\w/\.,|?&;=:-]+)}g) {
print qq| '$1' => sub {\n },\n|;
}
print ");\n";