#!c:\perl\bin\perl.exe -wT

use strict;
use CGI qw(:standard);

my $line;
my %survey;

print header;

open( FH, ">>psy.txt") or die "Error : $!\n";

foreach my $key( param() ) {
  print FH param($key), "\n";
}

close FH;

open( FH, "<psy.txt" ) or die "Error : $!\n";

while( $line = <FH> ) {
  $survey{$line}++;
}

foreach my $key ( keys %survey ) {

  print table(Tr(td( { -width => "$survey{$key}",
                 -height => "30", -bgcolor => "red" } ) ) ), br;
}

close FH;