gistfile1.txt

$ twiggy -l :3000 twitter.psgi

twitter.psgi

use 5.14.0;
use Mojo::UserAgent;
use Mojo::ByteStream 'b';
use EV;

# Normal PSGI application
my $ua  = Mojo::UserAgent->new;
my $app = sub {
  return sub {
    my $respond = shift;

    # Search Twitter for "perl"
    $ua->get('http://search.twitter.com/search.json?q=perl' => sub {
      my ($ua, $tx) = @_;

      # Respond with first result
      $respond->([
        200,
        ['Content-Type' => 'text/plain;charset=UTF-8'],
        [b($tx->res->json->{results}->[0]->{text})->encode]
      ]);
    });
  };
};