#!/usr/bin/perl -wT
use strict;
use CGI;

my $poll_results = 'poll_results.txt';

my $cgi = CGI->new;
open POLL_RESULTS, ">> $poll_results" 
    or die "Cannot open ($poll_results) for appending: $!";
$cgi->save(POLL_RESULTS);
close POLL_RESULTS                    
    or die "Cannot close ($poll_results): $!";