#!/usr/bin/perl

#$MAILTO = "nnd\@nnd.itfs.nsk.su";
$MAILTO = "nkochet\@math.nsc.ru";

$| = 1;
print "Content-Type: text/html\n\n<pre>\n";

require "cgi-lib.pl";
&ReadParse();

if( ! open( MAIL, "|/usr/bin/Mail -s book-order $MAILTO" ) ) {
	print "Error sending the order\n</pre>\n";
	exit 0;
}

foreach $v (keys %in) {
	print MAIL "$v $in{$v}\n";
}
close( MAIL );

print "Thank you  \n</pre>\n";