Account/title> </head> <body> <h2><TMPL_VAR message /></h2> </body> </html>

#!/usr/bin/perl use strict; use warnings; use HTML::Template; my $tmpl = HTML::Template->new( filehandle => \*DATA ); 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(); } __END__ Content-type:text/html Account/title> </head> <body> <h2><TMPL_VAR message /></h2> </body> </html>