Re^3: Web app frameworks - I am totally confused!

I can't resist. :)

use strict;
use warnings;
use CGI qw(:header);
use Template;

print header;

my $t = Template->new();

$t->process(\*DATA, {
   title => 'HTML Sample',
   toc   => 'Table of Contents',
   body  => 'Sample text',
}) or die $t->error();

__DATA__
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
  <title>[% title %]</title>
</head>
<body>
  <b>[% toc %]</b><br/>
  <i>[% body %]</i>
</body>
</html>
[download]

Of course this example barely shows off anything..

Makeshifts last the longest.

Comment on Re^3: Web app frameworks - I am totally confused! Download Code