#!/usr/bin/perl -w 


# what list are we using the template for? 
my $list = 'mojo_mailers'; 

use lib './';

# Use Mojo's HTML library
use MOJO::HTML; 


# load in the CGI.pm library
use CGI qw(:standard); 


print header(); 

# this is the header
print(the_html(-Part => "header",
               -Title => "Hello! I am the header!", 
               -List  => $list)); 

# this is the actual info
print p("I am text wrapped inside the mojo mail template, I think I'm pretty cool"); 


# and this is the footer. 
print(the_html(-Part => "footer", 
               -List => $list)
      ); 
      


=head1 COPYRIGHT 

 Copyright (c) 1999 - 2002 Justin Simoni (justin@skazat.com) http://skazat.com 
 All rights reserved. 

 This program is free software; you can redistribute it and/or
 modify it under the terms of the GNU General Public License
 as published by the Free Software Foundation; either version 2
 of the License, or (at your option) any later version.

 This program is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 GNU General Public License for more details.

 You should have received a copy of the GNU General Public License
 along with this program; if not, write to the Free Software
 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.


=cut
