#!/usr/bin/perl -w use strict; use POSIX qw(strftime); delete @ENV{qw(IFS CDPATH ENV BASH_ENV)}; $ENV{'PATH'} = "/usr/bin:/usr/local/bin"; use CGI; $CGI::DISABLE_UPLOADS = 1; $CGI::POST_MAX = 1024; ## grab form input my $query = CGI->new(); my %FORM; ## grab form field and stick values in hash my @formfields = $query->param; for my $field(@formfields) { $FORM{$field} = $query->param($field); } print < Missed fields! EOF for my $i(sort keys %FORM) { print qq|
  • $i : $FORM{$i}
    \n|; } print < EOF #### Yes No