use CGI;

my $q = CGI->new();

my $rbutton = $q->query('fred');

if ($rbutton eq 'is a loser') {
	fred_is_a_loser($q);
} elsif ($rbutton eq 'is a hero') {
	fred_is_a_hero($q);
} else {
	# who is fred?
	# or someone edited HTML locally
	default($q);
}