use strict;
use warnings;
# Modules
use Template;
use l10n;

my $template = Template->new(
    {
        INTERPOLATE => 1,
        POST_CHOMP => 1,
        EVAL_PERL => 1,
        TRIM => 1
    });

sub base_page
{
    my ($ssn, $data) = @_;
    my $result;

    my $vars = {
        #        L10N => L10N,
        prefix => '',
        lang => sub { $l10n::L10N{'EN_US'}{shift(@_)} },
    };

    $template->process(\$data, $vars, \$result) ||
        return $template->error();
    
    $result;
}