#!/usr/bin/perl
use Dancer;

get '/' => sub {
	'<form method=post><input name=a><input type=submit>'
};

post '/' => sub {
	'Hello, ' . param('a')
};

dance;
