gistfile1.txt

#!/usr/bin/env perl

use Mojolicious::Lite;
use Mojo::Redis;

my $redis=Mojo::Redis->new(server => 'localhost:6379');

get '/' => sub {
  my $self=shift;
  $self->render_later();
  $redis->ping(sub {
     my ($redis,$res)=@_;
     $self->render(text=>$res);
   });
};
app->start;