get '/' => sub {
  my $c = shift;
  $c->render( template => 'index' );
};

post '/' => sub {
  my $c = shift;
  my ($opt) = $c->param('option');
  app->log->info("Option $opt");
  my $result = do_something($opt);
  $c->render( template => 'result', c => $result );
};


##</code><code>##

@@ index.html.ep

%layout 'default';
<form method="post" action="." enctype="multipart/form-data">
<input name="option" size="40" type="text"></input><br>
<br><input type="submit" name="submit" value="submit"><br>
</form>

##</code><code>##

@@ result.html.ep
%layout 'default';
<div id="loader"></div>
<div id="content">
<h2>Result</h2>
<pre>
<%= $c %>
</pre>
</div>