Advertisement
Guest User

Untitled

a guest
Dec 6th, 2019
90
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.31 KB | None | 0 0
  1. #!/usr/bin/env perl
  2.  
  3. use strict;
  4. use warnings;
  5. use DDP;
  6. use Template;
  7. my $tt = Template->new({
  8. INCLUDE_PATH => './',
  9. });
  10.  
  11. my $app = sub {
  12. my $out;
  13. $tt->process("index.html", {}, \$out);
  14. return [
  15. '200',
  16. [ 'Content-Type' => 'text/html' ],
  17. [ $out ],
  18. ];
  19. };
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement