#!/usr/bin/perl -w

print "Status: 200 wooooo\nContent-type:  text/html\n\n";


use CGI;
$query = new CGI;
$title = $query->param("name");
$desc = $query->param("desc");
$sum = $query->param("sum");

print "Title = \"$title\"<br>Desc = \"$desc\"<br>Sum = \"$sum\"<b>\n";

open(FILE, ">database.data") or die "Could not open file";
print FILE "$title\n$sum\n$desc\n";

print "<h1>Data added</h1>\n";