dmr3/Upload_runcgi.pl

## Upload_runcgi.pl
use Mojolicious::Lite;

plugin CGI => [ "/cgi-bin/script" => "cgi-bin/forms/word_binner.pl " ];


# Upload form in DATA section
get '/' => 'form';

# Multipart upload handler
post '/upload' => sub {
  my $c = shift;

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

  # Process uploaded file
  return $c->redirect_to('form') unless my $example = $c->param('example');
  my $size = $example->size;
  my $name = $example->filename;
  $example->move_to("foo.txt");
  $c->render(text => "Thanks for uploading $size byte file $name.\n");
};

app->start;
__DATA__

@@ form.html.ep
<!DOCTYPE html>
<html>
  <head><title>Upload</title></head>
  <body>
    %= form_for upload => (enctype => 'multipart/form-data') => begin
      %= file_field 'example'
      %= submit_button 'Upload'
    % end
  </body>
</html>
	use Mojolicious::Lite;

	plugin CGI => [ "/cgi-bin/script" => "cgi-bin/forms/word_binner.pl " ];


	# Upload form in DATA section
	get '/' => 'form';

	# Multipart upload handler
	post '/upload' => sub {
	my $c = shift;

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

	# Process uploaded file
	return $c->redirect_to('form') unless my $example = $c->param('example');
	my $size = $example->size;
	my $name = $example->filename;
	$example->move_to("foo.txt");
	$c->render(text => "Thanks for uploading $size byte file $name.\n");
	};

	app->start;
	__DATA__

	@@ form.html.ep
	<!DOCTYPE html>
	<html>
	<head><title>Upload</title></head>
	<body>
	%= form_for upload => (enctype => 'multipart/form-data') => begin
	%= file_field 'example'
	%= submit_button 'Upload'
	% end
	</body>
	</html>