Я пробовал Mojolicious веб-фреймворк на основе Perl. И я постараюсь разработать полноценное приложение вместо Lite. Проблема, с которой я сталкиваюсь, заключается в том, что я пытаюсь загрузить файлы на сервер, но приведенный ниже код не работает.

Пожалуйста, объясните мне, что с ним не так. Кроме того, если файл загружен, он находится в общей папке приложения или в другом месте.

Заранее спасибо.

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