#!/usr/bin/env perl
use Mojolicious::Lite;

get '/whatsmyip' => sub { 
    my( $self ) = @_;

    $self->render( text => 
        "Your IP is " . 
        $self->tx->remote_address() );
};

app->start;