Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
16 lines (14 sloc) 273 Bytes
#!/usr/bin/perl
use Template;
my $app = sub {
my $tt = Template->new;
my $out;
$tt->process('time.tt',
{ time => scalar localtime },
\$out) or die $tt->error;
return [
200,
[ 'Content-type', 'text/html' ],
[ $out ]
]
};
Something went wrong with that request. Please try again.