#!/usr/bin/perl -w

# Charlotte Perl Mongers 2005 Template Challenge
# Use this script as the basis for your logic. The DATA section contains the
# information that must be included in your output.

use strict;
use Data::Dumper;
$Data::Dumper::Purity = 1;

# Load data
my $data;
{
  local $/ = undef;
  my $input = <DATA>;
  $data = eval ( $input );
  die($@) if $@;
}


$ENV{PATH} = "/bin:/usr/bin";
my $template_file = $ARGV[0] || die "Usage: $0 <template>";

##
## YOUR CODE HERE
##
#here is a very simple template tookit solution
#Kurt W. Whitsel
use Template;

  # some useful options (see below for full list)
  my $config = {
      INTERPOLATE  => 1,               # expand "$var" in plain text
      POST_CHOMP   => 1,               # cleanup whitespace 
      EVAL_PERL    => 1,               # evaluate Perl code blocks
  };

 # create Template object
  my $template = Template->new($config);

$template->process($template_file,  $data)
      || die $template->error();
      
##
## YOUR CODE HERE
##
__DATA__
$data = {
  ver => '1.0.0',
  records => [
    {
      first => 'Jane',
      last => 'Doe',
      phone => '800-222-3333',
      res => 1,
    },
    {
      first => 'John',
      last => 'Smith',
      phone => '704-123-4567',
      res => 1,
    },
    {
      first => 'Acme Electronics',
      last => '',
      phone => '704-123-4567',
      res => 0,
    },
  ],
};