#!/usr/bin/perl

#=====================================================================
# DECLARATIONS
#=====================================================================
use strict;

use Text::Template;


#=====================================================================
#  SUBROUTINES
#=====================================================================

sub USAGE {

    "
Usage :
       $0 start_date end_date


You passed:
       $0 @ARGV
";


}

#=====================================================================
#  PROGRAM PROPER
#=====================================================================

@ARGV == 2 or die USAGE;

my %data;

our ($start_date, $end_date) = @ARGV;

my $template = Text::Template->new
  (TYPE => 'FILE',  SOURCE => 'lead-query.tt')
  or die "$Text::Template::ERROR";

warn $template;

print $template->fill_in (PACKAGE => '__PACKAGE__' );



1;