01 #!/usr/bin/env perl
02 use Mojolicious::Lite;
03 
04 get '/whatsmyip' => sub { 
05   my( $self ) = @_;
06 
07   $self->render( text => 
08     "Your IP is " . 
09     $self->req->headers->header(
10         "x-forwarded-for" ) );
11 };
12 
13 app->start;