+my %hiddenjunk;
+{
+ my $content = $response->content;
+ while($content =~ /<input type="hidden" name="(.*?)" value="(.*?)">/gi) {
+ $hiddenjunk{$1} = $2;
+ }
+}
+$hiddenjunk{usage_btn} = "Continue";
+$response = $ua->post("${url}twbkwbis.P_FirstMenu", \%hiddenjunk);
+die $response->status_line unless $response->is_success;
+