Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
24 lines (20 sloc) 279 Bytes
#!/usr/bin/perl
my $app = sub {
my $env = shift;
my $now = localtime;
return [
200,
[ 'Content-type', 'text/html' ],
[
"<html>
<head>
<title>Time</title>
</head>
<body>
<h1>Time</h1>
<p>The time is $now</p>
</body>
</html>"
]
]
};