<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Verdana
}
--></style>
</head>
<body class='hmmessage'>
Comprei o livro Programação CGI com Perl segunda edição, mais tem um exemplo com templates que naum esta funcionando, uso servidor linux, com cpanel e Perl versão 5.8.8, coloquei permissão 0755 no arquivo current_time.cgi, esses são os script,<BR>
<BR>
arquivo current_time.cgi<BR>
<BR>
#!/usr/bin/perl -wT<BR>
use strict;<BR>use HTML::Template;<BR>
use constant TMPL_FILE => "$ENV{DOCUMENT_ROOT}/templates/current_time.tmpl";<BR>
my $tmpl = new HTML::Template( filename => TMPL_FILE );<BR>my $time = localtime;<BR>
$tmpl->param( current_time => $time );<BR>
print "Content-type: text/html\n\n",<BR> $tmpl->output;<BR>
<BR>
<BR>
<BR>
arquivo current_time.tmpl<BR>
<BR>
<HTML><BR>
<HEAD><BR> <TITLE>Current Time</TITLE><BR></HEAD><BR>
<BODY BGCOLOR="white"><BR> <H1>Current Time</H1><BR> <P>Welcome. The current time is <TMPL_VAR NAME="current_time">.</P><BR></BODY><BR></HTML><BR>
<BR>
<BR>
Alguem pode me ajudar?<BR>
<BR>
Obrigado<BR>                                            <br /><hr />Tijd voor een nieuwe telefoon? <a href='http://www.windows.nl/WindowsPhone.aspx?id=WatIsWindowsPhone' target='_new'>Bekijk de mogelijkheden van een Windows Phone!</a></body>
</html>