Select Code to Download

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

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

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

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

perl -Te "use CGI qw/:standard :debug/; $ms=param('you'); if (-f qq($m
+s\.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.