#!/usr/bin/perl

use strict;
use warnings;
use Mojolicious::Lite;
use Time::HiRes 'time';

get '/' => sub {
  
  my $c = shift;
  my $t = timer();
  
  $c->render(text => $t)
};

app->start;

sub timer
{
  return time
}