Exemplo

gistfile1.pl

arquivo TT:

<form action="[% c.uri_for(c.controller("Nome_do_controller").action_for("Nome_do_action")) %]" method="post" enctype="multipart/form-data">
    <input type="file" name="arquivo" /><br />
    <input type="submit" value="enviar" />
</form>
<br />

arquivo Controller:

sub Nome_do_action :Local{
    my ( $self, $c ) = @_;
    
    # UPLOAD
    my $arquivo = $c->req->upload('arquivo');

    $arquivo->copy_to('/fotos');

    $c->res->body('Enviado com sucesso!');
}