perl.pl

sub startup {
    my $self = shift;
    my $r = $self->routes;
    $r->get('/' => sub {
        shift->render(
            text => <<'END'
<form action="/upload" method="post" enctype="multipart/form-data">
<input type="submit" class="button" value="Send">
<input id="file_upload" type="file" name="file">
</form>
END
        );
    });
    $r->post('/upload' => sub {
        print "Test\n";
        shift->render(json => { status => 'ok' })
    });
}