#!/usr/bin/perl -w
###########################################
# mymojo
# Mike Schilli, 2013 (m@perlmeister.com)
###########################################
use strict;
use Mojolicious::Lite;

get '/' => sub {
  my $self = shift;

  my $user = getpwuid( $> );

  $self->render( text => 
    "I am $user\n" );
};

app->start;