I recommend learning Mojolicious
use strict;
use warnings;
use Mojolicious::Lite;
our %subject = (
Yes_bus => 'Branch Manager Business Call',
No_bus => 'Merchant Referral',
);
get '/' => sub {
my $self = shift;
my $selection = $self->param( 'businessCall' );
$self->stash( selection => $selection, subject => $subject{$select
+ion} );
$self->render( template => 'index' );
};
app->start;
__DATA__
@@ index.html.ep
<form>
<input type="radio" name="businessCall" value="Yes_bus" />Yes
<input type="radio" name="businessCall" value="No_bus" />No
<input type="submit" name="Go" />
</form>
% if ($selection) {
You picked <tt><%= $selection %></tt> which yields: <tt><%= $subje
+ct %></tt>
% }
jeffa
L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)