+my $input = \*STDIN;
+
+if (@ARGV) {
+ my %param = (
+ bar => 1,
+ statType_hidden => 'browser_version',
+ region_hidden => 'ww', # NL
+ granularity => 'monthly',
+ statType => 'Browser%20Version',
+ region => 'Worldwide', # Netherlands
+ fromMonthYear => $ARGV[0],
+ toMonthYear => $ARGV[1] // $ARGV[0],
+ csv => 1,
+ );
+ my $url = $count{-site};
+ $url .= 'chart.php?'.join('&', map "$_=$param{$_}", keys %param);
+ $count{-url} = $url;
+ require LWP::Simple;
+ my $download = LWP::Simple::get($url) or die "No data from $url\n";
+ undef $input;
+ open $input, '<', \$download or die $!;
+}