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>
% }
[download]

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)