#!/usr/bin/perl
# Includes
use strict;
use warnings;
use MyPackages;
use Template;

my $tt = Template->new({
    INCLUDE_PATH => '/usr/local/templates',
    INTERPOLATE  => 1,
}) || die "$Template::ERROR\n";

my ($lang, $data) = &MyPackages::MyFunctions();
# Module above changed to return data, not HTML
# You're going to love deleting all that non-perl code!!!
# $data is { first_name => 'Joe', last_name => 'Bloe' }

$tt->process("${lang}/homepage.tmpl", $data)
    || die $tt->error(), "\n";