#!/usr/bin/perl -wT
use strict;

use CGI qw( :standard );
use MIME::Lite;

my $cgi = new CGI;

print header, start_html,
      "Now testing Mime::Lite...\n";

my $msg = MIME::Lite->new
   ( Type     => 'TEXT',
     From     => 'sendtest',
     To       => 'footpad@THISISFAKE.example.com',
     Subject  => 'Simple Test',
     Data     => 'This is a test.  Does it work?'
   );

if ( $msg->send() )  
   { print "Your information has been saved and forwarded."; }
else
   { print "Unabled to save your information."; }

print end_html;