The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
<h2>Add an article</h2>

% $.FillInForm($form_data) {{
<form action="/article/publish" method=post>
  <p>Title: <input type=text size=30 name=title></p>
  <p>Text:</p>
  <textarea name=content rows=20 cols=70></textarea>
  <p><input type=submit value="Publish"></p>
</form>
% }}

<%init>
my $form_data = delete($m->session->{form_data});
</%init>