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(); }

#!/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(); }