Simple example of an lametric endpoint in perl.

clock.cgi

#!/usr/bin/perl -w
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use JSON;

my $json = JSON->new->pretty->allow_nonref;

my $q = CGI->new;

print $q->header('application/json');

my $response = {};

my @frames;

my $firstFrame = {};
$firstFrame->{index} = 0;

#Make the lamatric display the current time
$firstFrame->{text} = localtime;

$firstFrame->{icon} = "i753";

push(@frames,$firstFrame);
$response->{frames} = \@frames;

print $json->encode($response);