#!/usr/bin/perl -w 

use CGI qw(:standard); 

use lib './'; 
use MOJO::Mail; 

my $mh = MOJO::Mail -> new(); 

$mh -> send( 
To       => 'justin@skazat.com', 
From     => 'alex@prolix.nu', 
Subject  => 'Howdy!', 
Body     => 'I\'m sending this email using Mojo Mail!'
); 

print header(); 
print h1('mail is on its way!'); 


=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
