#!C:/Perl/bin/perl.exe

use strict;
use CGI qw(:standard);

my $sname=param('sendername');
my $saddr=param('senderaddr');
my $rname=param('recpientname');
my $raddr=param('recipientaddr');
my $subject=param('subject');
my $server="server.theone.i.use"; 
my $ThankPage = "http://the.site.i.want.to.end.with";
my $message=param('message');

my $lt='<';
my $gt='>';


open (messtxt,">message.txt");
print messtxt ($message);
close messtxt;

my $blat="E:\\Inetpub\\wwwroot\\misc\\blat\\blat\.exe -body \"$message\" -s \"$subject\" -t \"$raddr\" -server $server  -f \"$saddr\"";


system($blat);

print "Location: $ThankPage\n\n";