augensalat

#!/usr/bin/env perl

use strict;
use warnings;

use Mojo::IOLoop;
use Mojo::UserAgent;

# Build a normal transaction
my $ua = Mojo::UserAgent->new;

augensalat

#!/usr/bin/env perl

use Mojolicious::Lite;

any '/upload' => sub {
    my $self = shift;

    # Check file size
    return $self->render(text => 'File is too big.', status => 200)
        if $self->req->is_limit_exceeded;