[Mon Mar  4 16:30:03 2002] [error] [Mon Mar  4 16:30:03 2002] null: Insecure $ENV{PATH} while running with -T switch at /usr/local/lib/perl5/site_perl/5.6.1/MIME/Lite.pm line 2550.


##</code><code>##


sub send_preview {	
	my($query, $session) = @_;
	print STDERR "sending preview $ENV{PATH}\n";
	my $msg = new MIME::Lite 
                From    =>'bar@foo.com',
                To      =>'bar@foo.com',                
                Subject =>'None',
                Type    =>'TEXT';  
                
	$msg->attr("content-type"         => "text/html");
	$msg->send;
	print $query->header;
	print "SENT\n";
	
}