$datalen=$ENV{'Content_Length'};
read(STDIN,$q,$datalen);
@data=split(/&/,$q);