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";
	
}