Account/title> </head> <body> <h2><TMPL_VAR message /></h2> </body> </html> TMPL close $tmplOut; # "production" code my $tmpl = HTML::Template->new(filename => $tmplFileName); my $user = 'Mr. Foo'; if (1) { $tmpl->param(message => "Hello $user, your account - ready"); print $tmpl->output(); exit 0; } else { $tmpl->param(message => "Your user/pin incorrect - Use correct input"); print $tmpl->output(); } ##</code><code>## Content-type:text/html <html> <head> <title>Account/title> </head> <body> <h2>Hello Mr. Foo, your account

#!/usr/bin/perl use strict; use warnings; use HTML::Template; # Create a test template file my $tmplFileName = "template.htmlt"; open my $tmplOut, '>', $tmplFileName or die "Can't create $tmplFileName: $!\n"; print $tmplOut < Account/title> </head> <body> <h2><TMPL_VAR message /></h2> </body> </html> TMPL close $tmplOut; # "production" code my $tmpl = HTML::Template->new(filename => $tmplFileName); my $user = 'Mr. Foo'; if (1) { $tmpl->param(message => "Hello $user, your account - ready"); print $tmpl->output(); exit 0; } else { $tmpl->param(message => "Your user/pin incorrect - Use correct input"); print $tmpl->output(); } ##</code><code>## Content-type:text/html <html> <head> <title>Account/title> </head> <body> <h2>Hello Mr. Foo, your account - ready</h2> </body> </html>