<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Verdana
}
--></style>
</head>
<body class='hmmessage'>
<STYLE>
.ExternalClass .ecxhmmessage P
{padding:0px;}
.ExternalClass body.ecxhmmessage
{font-size:10pt;font-family:Verdana;}
</STYLE>
Amigos estou com problemas com template, <BR> <BR>estou usando esse codigo para estudo<BR> <BR>#!/usr/bin/perl -wT<BR> <BR>use CGI::Carp qw(fatalsToBrowser);<BR>use strict;<BR><BR>use HTML::Template;<BR> <BR>use constant TMPL_FILE => "$ENV{DOCUMENT_ROOT}/templates/current_time.tmpl";<BR> <BR>my $tmpl = new HTML::Template( filename => TMPL_FILE );<BR>my $time = localtime;<BR> <BR>$tmpl->param( current_time => $time );<BR> <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>porem esta dando esse erro:<BR> <BR>Can't locate HTML/Template.pm in @INC (@INC contains: /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.8 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.8/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.8 /usr/lib/perl5/vendor_perl /usr/lib/perl5/5.8.8/i386-linux-thread-multi /usr/lib/perl5/5.8.8) at current_time.cgi line 5.<BR>BEGIN failed--compilation aborted at current_time.cgi line 5.<BR> <BR> <BR> <BR>Obrigado e ate mais...<BR> <br /><hr />Voeg eenvoudig je Hyves vrienden toe aan je <a href='http://www.microsoft.com/netherlands/windowslive/Views/productdetail.aspx?product=MessengerHyves&WT.mc_id=msn3' target='_new'>Hotmail en Messenger.</a></body>
</html>