He estado probando el framework web Mojolicious basado en perl. Y he intentado desarrollar una aplicación completa en lugar de la Lite. El problema al que me estoy enfrentando es que estoy tratando de cargar archivos en el servidor, pero el siguiente código no funciona.

Por favor guíame qué está mal con eso. Además, si el archivo se carga, entonces está en la carpeta pública de la aplicación o en otro lugar.

Gracias por adelantado.

<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>