#!/usr/bin/env perl
###########################################
# Real IP via "x-forwarded-for"
# Mike Schilli, 2012 (m@perlmeister.com)
###########################################
use Mojolicious::Lite;

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

  $self->render( text => 
    "Your IP is " . 
    $self->req->headers->header(
        "x-forwarded-for" ) );
};

app->start;