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

$rating = substr($buffer,0,1);
$table = substr($buffer,1,(length($buffer)+1));

##</code><code>##

use CGI qw/:standard/;
my ($rating, $table);
if (param()){
 $rating = param('rating');
 $table = param('table');
}

##</code><code>##

perl -e "use CGI qw/:standard :debug/; if(param()){print  param('you')};" you=hello
hello

##</code><code>##

perl -Te "use CGI qw/:standard :debug/; $ms=param('you'); if (-f qq($ms\.txt)){open(H,qq(>>$ms\.txt))};print <H>; close(H);" you=hello
Insecure dependency in open while running with -T switch at -e line 1.