Eu tenho experimentado o framework web Mojolicious baseado em perl. E eu tentei desenvolver um aplicativo completo em vez do Lite. O problema que estou enfrentando é que estou tentando fazer upload de arquivos para o servidor, mas o código abaixo não está funcionando.

Por favor, me guie o que está errado com isso. Além disso, se o arquivo for carregado, então ele está na pasta pública do aplicativo ou em algum outro lugar.

Desde já, obrigado.

<code>sub posted {
 my $self = shift;
 my $logger = $self->app->log;

 my $filetype = $self->req->param('filetype');
 my $fileuploaded = $self->req->upload('upload');

 $logger->debug("filetype: $filetype");
 $logger->debug("upload: $fileuploaded");

 return $self->render(message => 'File is not available.')
  unless ($fileuploaded);

 return $self->render(message => 'File is too big.', status => 200)
   if $self->req->is_limit_exceeded;

 # Render template "example/posted.html.ep" with message
 $self->render(message => 'Stuff Uploaded in this website.');
}
</code>