example/template/tail.t

   1 @[
   2 $lm = "???";
   3 if (my @st = stat $srcpath) {
   4       my $mtime = $st[9];
   5       $lm = POSIX::strftime("%Y-%m-%d", localtime $mtime);
   6 }
   7 ]@
   8
   9 @{"<p>Last modification: $lm by Martin Mares"}@
  10
  11 </body></html>