Select Code to Download

#!C:\pache\Perl\bin\perl.exe -w
use strict;
...
  { local $^W; $agent->current_form->value('B3', '1,1'); };
  $agent->click('B3');
  print $agent->content,"\n";

C:\>perl -MWWW::Mechanize::Shell -e shell
Module File::Modified not found. Automatic reloading disabled.
SetConsoleMode failed, LastError=|6| at C:/pache/Perl/site/lib/Term/Re
+adKey.pm line 268.
...
lass=cn_cont align='left' nowrap>2004 07</td><td class=cn_cont nowrap 
+align='right'>111.0</td><td class=cn_cont nowrap align='right'>1.4</t
+d><td class
=cn_cont nowrap align='right'>-0.3</td></tr><tr><td class=cn_cont alig
+n='left' nowrap>2004 08</td><td class=cn_cont nowrap align='right'>11
+1.3</td><td
 class=cn_cont nowrap align='right'>1.3</td><td class=cn_cont nowrap a
+lign='right'>0.3</td></tr><tr><td class=cn_cont align='left' nowrap>1
+988 1</td>