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->tx->remote_address() );
10 };
11 
12 app->start;