An example of JSONP service (cross-domain) on Mojolicious..

jsonp-service.pl

#!/usr/bin/env perl

use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/mojo/lib";

use Mojolicious::Lite;

# /test/?foo=bar&callback=smth
get '/test' => sub { 
	my $self = shift;

	my $foo 	= $self->param('foo') || '';
	my $callback	= $self->param('callback') || 'jsonp';
...
	my $json = $self->render(
		json => {
			'status' => 'OK',
			'result' => 'successful'
		}, 
		partial => 1);

	$self->render(data => "$callback($json)", format => 'js');
} => 'test';

app->start;