#!/usr/bin/perl

read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); 
#$buffer = $ENV{'QUERY_STRING'};

$buffer =~ tr/+//;
$buffer =~ tr/@/_/;


@pairs = split(/&/,$buffer);

@dann = split(/=/,$pairs[0]);
$Dann = @dann[1];

open(FileSakas,">>Sakas.txt");
print FileSakas $Dann,"\r\n";
close(FileSakas);

print "Content-Type: text/html\n\n";

print "<HTML><HEAD><TITLE>The response</TITLE>";
print "<META http-equiv='Content-Type' content=&quottext/html; charset=ISO-8859-1&quot>";
print "</HEAD><BODY>";
print "Successfully ! Your order is received ! <br>";
print "</BODY></HTML>";