#!/usr/bin/perl -w

read (STDIN, $x, $ENV{'CONTENT_LENGTH'});

@data = split(/&/, $x);
@data = (@data, '======================');

open(PRES, ">>poll_results.txt") or die "could not open $!";
print PRES @data;
close PRES;