Select Code to Download

<input type="radio" name="KompressorVote" value="220">
<input type="radio" name="KompressorVote" value="221">
<form action="results.cfm" method="post" name="KompressorPollsForm" id
+="KompressorPollsForm"><input type="hidden" name="kact" value="">

<a href="javascript:applyVotes()"><img src="el/submit_button.gif" alt=
+"Accept" border="0"></a>

...
    }
</script>

#!/usr/bin/perl
use HTTP::Request::Common qw(POST);
...
$content=$ua->request($req)->as_string;
print $content;
print $req;