use LWP; 
use HTTP::Request::Common; 
use HTTP::Cookies; 
use HTML::Form;

my $ua = LWP::UserAgent->new; 
$ua->cookie_jar(HTTP::Cookies->new(file=>'lwp-cookies',autosave=>1)); 
# trying to fake a compatible browser, but doesn't work either!
$ua->agent("Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0)");  

my @form = HTML::Form->parse($html, $base_uri);
if ($hash{"Category1"}) {
	$form[0]->value(category1 => $hash{"Category1"} ) ;
}
my $req = $ua->request($form[0]->click("buttoncontinue"));
my $html =  $req->content;