#!C:\pache\Perl\bin\perl.exe -w
use strict;
use WWW::Mechanize;
use WWW::Mechanize::FormFiller;
use URI::URL;

my $agent = WWW::Mechanize->new( autocheck => 1 );
my $formfiller = WWW::Mechanize::FormFiller->new();
$agent->env_proxy();

  $agent->get('http://www.statistics.gov.uk/STATBASE/tsdataset.asp?vlnk=7174');
    $agent->form(1) if $agent->forms and scalar @{$agent->forms};
  $agent->form_number(3);
  { local $^W; $agent->current_form->value('B3', '1,1'); };
  $agent->click('B3');
  print $agent->content,"\n";