Help for this page
$value =~s/<!--(.|\n)*-->//g;
use CGI qw/:standard/; read(STDIN, $formdata, $ENV{'CONTENT_LENGTH'}); ... $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $FORM{$name} = $value; }
use CGI qw/:standard/; my @sports = param( 'sports' );
www.com | www.net | www.org
No recent polls found